diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-09-09 15:34:25 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-09-09 15:34:25 +0000 |
commit | 0fd0903eee374f00df87f487bf2e8e2c3d9d6f6f (patch) | |
tree | a897d9616368053819ec6208efc519e7f046df13 /tactics/equality.ml | |
parent | 57836d30da692ebbe79c4f3644803c8fa3ec34cc (diff) |
Préparation à la mise en place d'univers algébriques
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1938 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/equality.ml')
-rw-r--r-- | tactics/equality.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index 484a17c2f..9d623fe51 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -435,8 +435,9 @@ let construct_discriminator sigma env dirn c sort = let arsign,arsort = get_arity indf in let (true_0,false_0,sort_0) = match necessary_elimination arsort (destSort sort) with - | Type_Type -> build_coq_UnitT (), build_coq_EmptyT (), (Type dummy_univ) - | _ -> build_coq_True (), build_coq_False (), (Prop Null) + | Type_Type -> + build_coq_UnitT (), build_coq_EmptyT (), Evarutil.new_Type_sort () + | _ -> build_coq_True (), build_coq_False (), (Prop Null) in let p = it_mkLambda_or_LetIn (mkSort sort_0) arsign in let cstrs = get_constructors indf in @@ -462,8 +463,7 @@ let rec build_discriminator sigma env dirn c sort = function let newc = mkRel(cnum_nlams-(argnum-nparams)) in let subval = build_discriminator sigma cnum_env dirn newc sort l in (match necessary_elimination arsort (destSort sort) with - | Type_Type -> - kont subval (build_coq_EmptyT (),mkSort (Type(dummy_univ))) + | Type_Type -> kont subval (build_coq_EmptyT (),Evarutil.new_Type ()) | _ -> kont subval (build_coq_False (),mkSort (Prop Null))) let find_eq_data_decompose eqn = |