Module Why_ops.M1


module M1: sig .. end
for model M1 only

val pointer_access : 'a Fol.d_term -> 'a Fol.d_term
p.*
val pointer_update : 'a Fol.d_term -> 'a Fol.d_term -> 'a Fol.d_term