diff options
| author | Maxime Dénès | 2017-04-27 17:30:54 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-04-27 17:30:54 +0200 |
| commit | 338f8df5ea59a46b60fcfbe50e122fd6eee0dc52 (patch) | |
| tree | ac27debb6849cab3e637205578901a92b70a51df /plugins/firstorder/formula.mli | |
| parent | 0bfd1f2a461ec989dbe812b10d8ee39d296bc777 (diff) | |
| parent | 6d4f2222aa7ff6039f9f386cbc38201a0cd60c08 (diff) | |
Merge PR#568: Remove tactic compatibility layer
Diffstat (limited to 'plugins/firstorder/formula.mli')
| -rw-r--r-- | plugins/firstorder/formula.mli | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/plugins/firstorder/formula.mli b/plugins/firstorder/formula.mli index 5db8ff59ad..3f438c04a0 100644 --- a/plugins/firstorder/formula.mli +++ b/plugins/firstorder/formula.mli @@ -7,6 +7,7 @@ (************************************************************************) open Term +open EConstr open Globnames val qflag : bool ref @@ -23,10 +24,10 @@ type ('a,'b) sum = Left of 'a | Right of 'b type counter = bool -> metavariable -val construct_nhyps : pinductive -> Proof_type.goal Tacmach.sigma -> int array +val construct_nhyps : Environ.env -> pinductive -> int array -val ind_hyps : int -> pinductive -> constr list -> - Proof_type.goal Tacmach.sigma -> Context.Rel.t array +val ind_hyps : Environ.env -> Evd.evar_map -> int -> pinductive -> + constr list -> EConstr.rel_context array type atoms = {positive:constr list;negative:constr list} @@ -34,7 +35,7 @@ type side = Hyp | Concl | Hint val dummy_id: global_reference -val build_atoms : Proof_type.goal Tacmach.sigma -> counter -> +val build_atoms : Environ.env -> Evd.evar_map -> counter -> side -> constr -> bool * atoms type right_pattern = @@ -69,6 +70,6 @@ type t={id: global_reference; (*exception Is_atom of constr*) -val build_formula : side -> global_reference -> types -> - Proof_type.goal Tacmach.sigma -> counter -> (t,types) sum +val build_formula : Environ.env -> Evd.evar_map -> side -> global_reference -> types -> + counter -> (t,types) sum |