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