diff options
| author | filliatr | 1999-11-25 10:45:26 +0000 |
|---|---|---|
| committer | filliatr | 1999-11-25 10:45:26 +0000 |
| commit | d1fd4e0344d81127f2307f1553642fc67911b68c (patch) | |
| tree | 7c6d66ca699c3b32dc06cce90092cab95f33672f /tactics | |
| parent | 2e57237d7518d8cd4ea2b608e5e7c96eb5698638 (diff) | |
typage des existentielles dans Typing_ev; suppression metamap inutiles dans typage
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@141 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/wcclausenv.ml | 2 | ||||
| -rw-r--r-- | tactics/wcclausenv.mli | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/tactics/wcclausenv.ml b/tactics/wcclausenv.ml index 44f17e8165..e541c29dbd 100644 --- a/tactics/wcclausenv.ml +++ b/tactics/wcclausenv.ml @@ -19,6 +19,8 @@ open Clenv write to Eduardo.Gimenez@inria.fr and ask for the prize :-) -- Eduardo (11/8/97) *) +type wc = walking_constraints + let pf_get_new_id id gls = next_ident_away id (ids_of_sign (pf_untyped_hyps gls)) diff --git a/tactics/wcclausenv.mli b/tactics/wcclausenv.mli index 8aee8dcb7c..b1bf17e015 100644 --- a/tactics/wcclausenv.mli +++ b/tactics/wcclausenv.mli @@ -46,7 +46,7 @@ val res_pf_THEN_i : (wc -> tactic) -> wc clausenv -> (wc clausenv -> int -> tactic) -> int -> tactic -val elim_res_pf_THEN_id : +val elim_res_pf_THEN_i : (wc -> tactic) -> wc clausenv -> (wc clausenv -> int -> tactic) -> int -> tactic |