let deref loc (t:term) : term = let typ = match t.term_type with | Ctype (TPtr (typ,_)) -> Ctype typ | _ -> Wp_parameters.fatal "[deref] on a pure logic type" in Logic_const.term ~loc (TLval (TMem t,TNoOffset)) typ