diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-04-20 15:51:40 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-04-20 15:51:40 +0000 |
commit | a002d6ef127b4f0103012c23fc5d272739649043 (patch) | |
tree | 99c7ba136ce8488d2086290b3ff18fe91cdf6073 /pretyping/evarconv.ml | |
parent | b8cd60cf1b3817a1802459310e79a8addb628ee7 (diff) |
Abstraction du type typed_type (un pas vers les jugements 2 niveaux)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@362 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/evarconv.ml')
-rw-r--r-- | pretyping/evarconv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/evarconv.ml b/pretyping/evarconv.ml index 539a953a1..241e4ec05 100644 --- a/pretyping/evarconv.ml +++ b/pretyping/evarconv.ml @@ -22,7 +22,7 @@ let tjudge_of_cast_safe sigma env var = match under_casts (fun _ -> nf_ise1) env sigma var with | DOP2 (Cast, b, t) -> (match whd_betadeltaiota env sigma t with - | DOP0 (Sort s) -> {body=b; typ=s} + | DOP0 (Sort s) -> make_typed b s | _ -> anomaly "Not a type (tjudge_of_cast)") | c -> execute_rec_type env sigma c (* FIN TMP ***** *) |