diff options
| author | Pierre-Marie Pédrot | 2020-01-28 13:00:44 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-01-28 13:00:44 +0100 |
| commit | 36c61df9435ce382084ddb097ffe0c7b2e220cbb (patch) | |
| tree | d0908b97193ffe5dee9c95a5be2f40e0d563d0d9 /test-suite | |
| parent | 2b4ebc5cd24f131567052d64889b2d24d5cc5ee8 (diff) | |
| parent | f011a88bd4be4797617741d6829d2530bc29ebdf (diff) | |
Merge PR #11419: schemes: use rigid universes
Reviewed-by: ppedrot
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/success/Scheme.v | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/test-suite/success/Scheme.v b/test-suite/success/Scheme.v index 855f26698c..4b928007cf 100644 --- a/test-suite/success/Scheme.v +++ b/test-suite/success/Scheme.v @@ -25,3 +25,8 @@ Check myeq_rew_fwd_r_dep. Set Rewriting Schemes. Inductive myeq_true : bool -> Prop := myrefl_true : myeq_true true. Unset Rewriting Schemes. + +(* check that the scheme doesn't minimize itself into something non general *) +Polymorphic Inductive foo@{u v|u<=v} : Type@{u}:= . +Lemma bla@{u v|u < v} : foo@{u v} -> False. +Proof. induction 1. Qed. |