let valid_pointer : D.pointer -> D.F.pred = D.p_app1 ("m0_valid_pointer")