diff options
| author |  filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-03-01 12:12:24 +0000 |
|---|---|---|
| committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-03-01 12:12:24 +0000 |
| commit | d8717a3f7d11a95a60c102bd6bd7865b5b38d866 (patch) | |
| tree | 87b040542a646eedf61f1aec857347fc74210eb8 /tactics | |
| parent | bb7d7482724489521dde94a5b70af7864acfa802 (diff) | |
backtrack unification types et deplacement make_clenv_binding
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1417 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tactics.ml | 29 | ||||
| -rw-r--r-- | tactics/tactics.mli | 4 |
2 files changed, 0 insertions, 33 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 82f431445..424b785bc 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -465,22 +465,6 @@ let bring_hyps clsl gl = (* Resolution with missing arguments *) -let collect_com lbind = - map_succeed (function (Com,c)->c | _ -> failwith "Com") lbind - -let make_clenv_binding_apply wc (c,t) lbind = - let largs = collect_com lbind in - let lcomargs = List.length largs in - if lcomargs = List.length lbind then - let clause = mk_clenv_from wc (c,t) in - clenv_constrain_missing_args largs clause - else if lcomargs = 0 then - let clause = mk_clenv_rename_from wc (c,t) in - clenv_match_args lbind clause - else - errorlabstrm "make_clenv_bindings" - [<'sTR "Cannot mix bindings and free associations">] - let apply_with_bindings (c,lbind) gl = let (wc,kONT) = startWalk gl in let t = w_hnf_constr wc (w_type_of wc c) in @@ -955,19 +939,6 @@ let elimination_clause_scheme kONT wc elimclause indclause gl = (* cast added otherwise tactics Case (n1,n2) generates (?f x y) and * refine fails *) -let make_clenv_binding wc (c,t) lbind = - let largs = collect_com lbind in - let lcomargs = List.length largs in - if lcomargs = List.length lbind then - let clause = mk_clenv_from wc (c,t) in - clenv_constrain_dep_args largs clause - else if lcomargs = 0 then - let clause = mk_clenv_rename_from wc (c,t) in - clenv_match_args lbind clause - else - errorlabstrm "make_clenv_bindings" - [<'sTR "Cannot mix bindings and free associations">] - let type_clenv_binding wc (c,t) lbind = clenv_instance_template_type (make_clenv_binding wc (c,t) lbind) diff --git a/tactics/tactics.mli b/tactics/tactics.mli index 0644bc972..c81e1436f 100644 --- a/tactics/tactics.mli +++ b/tactics/tactics.mli @@ -18,10 +18,6 @@ open Tacticals (*s General functions. *) -val make_clenv_binding_apply : - walking_constraints -> constr * constr -> constr substitution -> - walking_constraints clausenv - val type_clenv_binding : walking_constraints -> constr * constr -> constr substitution -> constr |