let declare obj _ =
         let p_is_init = (InitObj.get_definition obj).d_name in
         let pool = F.pool () in
         let vx = F.p_fresh pool "x" (Model (tau_of_object obj)) in
         let x = F.var vx in
         let is_init_x = F.p_app1 p_is_init x in
         let body = init_value_term pool x obj in
         Formula.Axiom (F.p_forall [vx ] (F.p_iff is_init_x body))