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