diff options
| author | clrenard | 2001-11-06 13:05:45 +0000 |
|---|---|---|
| committer | clrenard | 2001-11-06 13:05:45 +0000 |
| commit | 22ac53765e6f3d8ee2f05ad5fcdb046fbf4b6baf (patch) | |
| tree | 3c7468e9f0703d9e70b3aea539aaf8a28ec6a0ed /tactics | |
| parent | 8cd83fb8dd41521bbc109d37dd49dd3aae0de373 (diff) | |
Suppression des local_constraints, des ctxtty et du focus.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2163 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/auto.mli | 6 | ||||
| -rw-r--r-- | tactics/equality.mli | 4 | ||||
| -rw-r--r-- | tactics/leminv.ml | 2 | ||||
| -rw-r--r-- | tactics/wcclausenv.mli | 4 |
4 files changed, 8 insertions, 8 deletions
diff --git a/tactics/auto.mli b/tactics/auto.mli index 504cb8ba93..20f770b833 100644 --- a/tactics/auto.mli +++ b/tactics/auto.mli @@ -76,7 +76,7 @@ val make_exact_entry : [cty] is the type of [hc]. *) val make_apply_entry : - env -> 'a evar_map -> bool * bool -> identifier -> constr * constr + env -> evar_map -> bool * bool -> identifier -> constr * constr -> constr_label * pri_auto_tactic (* A constr which is Hint'ed will be: @@ -87,7 +87,7 @@ val make_apply_entry : has missing arguments. *) val make_resolves : - env -> 'a evar_map -> identifier -> bool * bool -> constr * constr -> + env -> evar_map -> identifier -> bool * bool -> constr * constr -> (constr_label * pri_auto_tactic) list (* [make_resolve_hyp hname htyp]. @@ -96,7 +96,7 @@ val make_resolves : If the hyp cannot be used as a Hint, the empty list is returned. *) val make_resolve_hyp : - env -> 'a evar_map -> named_declaration -> + env -> evar_map -> named_declaration -> (constr_label * pri_auto_tactic) list (* [make_extern name pri pattern tactic_ast] *) diff --git a/tactics/equality.mli b/tactics/equality.mli index b7ec9eb591..cfda6dc345 100644 --- a/tactics/equality.mli +++ b/tactics/equality.mli @@ -87,7 +87,7 @@ val dEq : clause -> tactic val dEqThen : (int -> tactic) -> clause -> tactic val make_iterated_tuple : - env -> 'a evar_map -> (constr * constr) -> (constr * constr) + env -> evar_map -> (constr * constr) -> (constr * constr) -> constr * constr * constr val subst : constr -> clause -> tactic @@ -95,7 +95,7 @@ val hypSubst : identifier -> clause -> tactic val revSubst : constr -> clause -> tactic val revHypSubst : identifier -> clause -> tactic -val discriminable : env -> 'a evar_map -> constr -> constr -> bool +val discriminable : env -> evar_map -> constr -> constr -> bool (***************) (* AutoRewrite *) diff --git a/tactics/leminv.ml b/tactics/leminv.ml index ab0590a714..2fa36bf20c 100644 --- a/tactics/leminv.ml +++ b/tactics/leminv.ml @@ -212,7 +212,7 @@ let inversion_scheme env sigma t sort dep_option inv_op = [< 'sTR"Computed inversion goal was not closed in initial signature" >]; *) let invSign = named_context invEnv in - let pfs = mk_pftreestate (mk_goal (mt_ctxt Intset.empty) invSign invGoal) in + let pfs = mk_pftreestate (mk_goal invSign invGoal) in let pfs = solve_pftreestate (tclTHEN intro (onLastHyp inv_op)) pfs in let (pfterm,meta_types) = extract_open_pftreestate pfs in let global_named_context = Global.named_context () in diff --git a/tactics/wcclausenv.mli b/tactics/wcclausenv.mli index 8f9cad9a9d..cd88cc1b5b 100644 --- a/tactics/wcclausenv.mli +++ b/tactics/wcclausenv.mli @@ -36,8 +36,8 @@ type wc = walking_constraints val clenv_constrain_with_bindings : arg_bindings -> wc clausenv -> wc clausenv -val add_prod_rel : 'a evar_map -> constr * env -> constr * env -val add_prods_rel : 'a evar_map -> constr * env -> constr * env +val add_prod_rel : evar_map -> constr * env -> constr * env +val add_prods_rel : evar_map -> constr * env -> constr * env (*i** val add_prod_sign : |