(* Compat API / *) let get_current_context = Declare.get_current_context [@@ocaml.deprecated "Use [Declare.get_current_context]"] let solve = Proof.solve [@@ocaml.deprecated "Use [Proof.solve]"] let by = Declare.by [@@ocaml.deprecated "Use [Declare.by]"] let refine_by_tactic = Proof.refine_by_tactic [@@ocaml.deprecated "Use [Proof.refine_by_tactic]"] (* We don't want to export this anymore, but we do for now *) let build_by_tactic ?side_eff env ~uctx ~poly ~typ tac = let b, t, _unis, safe, uctx = Declare.build_by_tactic ?side_eff env ~uctx ~poly ~typ tac in b, t, safe, uctx [@@ocaml.deprecated "Use [Proof.build_by_tactic]"] let build_constant_by_tactic = Declare.build_constant_by_tactic [@ocaml.warning "-3"] [@@ocaml.deprecated "Use [Proof.build_constant_by_tactic]"]