diff options
| -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) |