test-suite/bugs/opened/3804.v


1
2
3
4
5
6
7
8
9
10
11
12

Set Universe Polymorphism.
Module Foo.
  Definition T : sigT (fun x => x).
  Proof.
    exists Set.
    abstract exact nat.
  Defined.
End Foo.
Module Bar.
  Include Foo.
End Bar.
Fail Definition foo := eq_refl : Foo.T = Bar.T.