diff options
| author | herbelin | 2003-12-27 20:12:01 +0000 |
|---|---|---|
| committer | herbelin | 2003-12-27 20:12:01 +0000 |
| commit | 066998ff9f89404cb41a6a3f8c0ccc88d2cc7a4b (patch) | |
| tree | af00e2323d39671e114273056a144853ab33aac3 | |
| parent | b6c62cb0c7fc1fe412a2c0218994d9eb06225018 (diff) | |
Type le 'return' comme un type
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5154 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | pretyping/cases.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/cases.ml b/pretyping/cases.ml index c240613ae5..25b41d069c 100644 --- a/pretyping/cases.ml +++ b/pretyping/cases.ml @@ -1675,7 +1675,7 @@ let prepare_predicate loc typing_fun isevars env tomatchs sign tycon = function (* We extract the signature of the arity *) let arsign = extract_arity_signature env tomatchs sign in let env = push_rels arsign env in - let predccl = (typing_fun empty_tycon env rtntyp).uj_val in + let predccl = (typing_fun (mk_tycon (new_Type ())) env rtntyp).uj_val in Some (build_initial_predicate env (evars_of isevars) true predccl tomatchs) |