diff options
author | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-03-28 15:11:26 +0000 |
---|---|---|
committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-03-28 15:11:26 +0000 |
commit | 8e82c4096357355a148705341742702ff285f72a (patch) | |
tree | 4c666a566036e48680f0f76045efe09104f77091 /tactics/dhyp.ml | |
parent | 5086461b2de4c3e87146ac803b99538a4c187b98 (diff) |
amelioration de la structure des univers
elimination des compteurs globaux de metas et d'evars du noyau
nettoyage de safe_typing.ml (plus de flags)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1497 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/dhyp.ml')
-rw-r--r-- | tactics/dhyp.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tactics/dhyp.ml b/tactics/dhyp.ml index a40a74843..95f8f170e 100644 --- a/tactics/dhyp.ml +++ b/tactics/dhyp.ml @@ -229,11 +229,11 @@ let _ = add_destructor_hint na (match loc with | Hyp b -> - Hyp(b,{d_typ=pat;d_sort=PMeta(Some (new_meta()))}, - { d_typ=PMeta(Some (new_meta())); - d_sort=PMeta(Some (new_meta())) }) + Hyp(b,{d_typ=pat;d_sort=PMeta(Some (Clenv.new_meta()))}, + { d_typ=PMeta(Some (Clenv.new_meta())); + d_sort=PMeta(Some (Clenv.new_meta())) }) | Concl () -> - Concl({d_typ=pat;d_sort=PMeta(Some (new_meta()))})) + Concl({d_typ=pat;d_sort=PMeta(Some (Clenv.new_meta()))})) pri code | _ -> bad_vernac_args "HintDestruct") |