diff options
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/bugs/closed/3330.v | 6 | ||||
| -rw-r--r-- | test-suite/success/polymorphism.v | 2 |
2 files changed, 3 insertions, 5 deletions
diff --git a/test-suite/bugs/closed/3330.v b/test-suite/bugs/closed/3330.v index a497e7a987..672fb3f131 100644 --- a/test-suite/bugs/closed/3330.v +++ b/test-suite/bugs/closed/3330.v @@ -1072,10 +1072,8 @@ Section Adjunction. Variable F : Functor C D. Variable G : Functor D C. -(* Let Adjunction_Type := - Eval simpl in (hom_functor D) o (F^op, 1) <~=~> (hom_functor C) o (1, G).*) - - Set Printing All. Set Printing Universes. + Let Adjunction_Type := + Eval simpl in (hom_functor D) o (F^op, 1) <~=~> (hom_functor C) o (1, G). Record AdjunctionHom := { diff --git a/test-suite/success/polymorphism.v b/test-suite/success/polymorphism.v index f57cbcc2b7..ecc988507c 100644 --- a/test-suite/success/polymorphism.v +++ b/test-suite/success/polymorphism.v @@ -360,7 +360,7 @@ End F. Set Universe Polymorphism. -Record box (X : Type) (T := Type) : Type := wrap { unwrap : T }. +Cumulative Record box (X : Type) (T := Type) : Type := wrap { unwrap : T }. Section test_letin_subtyping. Universe i j k i' j' k'. |