let ltype_ptr_subtype lty = match lty with
  | Ctype t -> Ctype (ctype_ptr_subtype t)
  | _ -> Wp_parameters.abort "logic pointer type ?"