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 /parsing | |
| 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 'parsing')
| -rw-r--r-- | parsing/astterm.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/astterm.ml b/parsing/astterm.ml index 194ce335e..c2d867ec9 100644 --- a/parsing/astterm.ml +++ b/parsing/astterm.ml @@ -702,7 +702,7 @@ let interp_type_with_implicits sigma env impls c = let interp_sort = function | Node(loc,"PROP", []) -> Prop Null | Node(loc,"SET", []) -> Prop Pos - | Node(loc,"TYPE", _) -> Type Univ.dummy_univ + | Node(loc,"TYPE", _) -> new_Type_sort () | a -> user_err_loc (Ast.loc a,"interp_sort", [< 'sTR "Not a sort" >]) let judgment_of_rawconstr sigma env c = |