diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-03-08 21:39:21 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-03-08 21:39:21 +0000 |
| commit | 7048ebe10b665a973951ed6e559b0ce5d3b1d779 (patch) | |
| tree | c7a0879665de13a4e42aff49a787d12b0102ea8c /pretyping/pretyping.ml | |
| parent | 707c8a91f5e443d02f3f8d7ac318e2d7b1720d5a (diff) | |
La partie 'val' de trad_constraints devient un typed_type
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@306 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/pretyping.ml')
| -rw-r--r-- | pretyping/pretyping.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/pretyping.ml b/pretyping/pretyping.ml index b7fdfbc00..2ccb6c94b 100644 --- a/pretyping/pretyping.ml +++ b/pretyping/pretyping.ml @@ -295,7 +295,7 @@ match cstr with (* Où teste-t-on que le résultat doit satisfaire tycon ? *) if !compter then nbimpl:=!nbimpl+1; (match vtcon with (true,(Some v, _)) -> - let (valc,typc) = destCast v in + let (valc,typc) = (body_of_type v,mkSort (level_of_type v)) in {uj_val=valc; uj_type=typc; uj_kind=dummy_sort} | (false,(None,Some ty)) -> let (c,ty) = new_isevar isevars env ty CCI in |