diff options
| author | Matthieu Sozeau | 2015-09-11 18:07:39 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2015-10-02 15:54:10 +0200 |
| commit | e759333a8b5c11247c4cc134fdde8c1bd85a6e17 (patch) | |
| tree | 8eb43cf88b6d2367bb856f46b2a471af583e73db /theories | |
| parent | 88abc50ece70405d71777d5350ca2fa70c1ff437 (diff) | |
Universes: enforce Set <= i for all Type occurrences.
Diffstat (limited to 'theories')
| -rw-r--r-- | theories/Classes/CMorphisms.v | 3 | ||||
| -rw-r--r-- | theories/Init/Logic.v | 2 |
2 files changed, 2 insertions, 3 deletions
diff --git a/theories/Classes/CMorphisms.v b/theories/Classes/CMorphisms.v index 048faa9166..9d3952e64a 100644 --- a/theories/Classes/CMorphisms.v +++ b/theories/Classes/CMorphisms.v @@ -267,10 +267,9 @@ Section GenericInstances. Qed. (** The complement of a crelation conserves its proper elements. *) - Program Definition complement_proper `(mR : Proper (A -> A -> Prop) (RA ==> RA ==> iff) R) : - Proper (RA ==> RA ==> iff) (complement R) := _. + Proper (RA ==> RA ==> iff) (complement@{i j Prop} R) := _. Next Obligation. Proof. diff --git a/theories/Init/Logic.v b/theories/Init/Logic.v index 50f853f0e0..375495c888 100644 --- a/theories/Init/Logic.v +++ b/theories/Init/Logic.v @@ -370,7 +370,7 @@ Module EqNotations. End EqNotations. Import EqNotations. - +Set Printing Universes. Lemma rew_opp_r : forall A (P:A->Type) (x y:A) (H:x=y) (a:P y), rew H in rew <- H in a = a. Proof. intros. |