let
equal_loc_bool l1 l2 =
F
.e_app2
"eq_ptr_bool"
(ptr l1) (ptr l2)