let
mk_field_access e f =
Fol
.
Tdata
(
E1proj
(e,
WpFol
.
Pfield
f))