2b2aa228e3
The universe constraint manager is more flexible now. We don't need to start with a huge universe U >= 512. We can start small, and increase it on demand. If module mod1 needs it, it can always add universe U >= 3 Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
31 lines
914 B
Text
31 lines
914 B
Text
import cast
|
|
set::option pp::colors false
|
|
universe M >= 1
|
|
universe U >= M + 1
|
|
definition TypeM := (Type M)
|
|
|
|
check fun (A A': TypeM)
|
|
(a : A)
|
|
(b : A')
|
|
(L2 : A' == A),
|
|
let b' : A := cast L2 b,
|
|
L3 : b == b' := cast::eq L2 b
|
|
in L3
|
|
|
|
check fun (A A': TypeM)
|
|
(B : A -> TypeM)
|
|
(B' : A' -> TypeM)
|
|
(f : forall x : A, B x)
|
|
(g : forall x : A', B' x)
|
|
(a : A)
|
|
(b : A')
|
|
(H1 : (forall x : A, B x) == (forall x : A', B' x))
|
|
(H2 : f == g)
|
|
(H3 : a == b),
|
|
let L1 : A == A' := dominj H1,
|
|
L2 : A' == A := symm L1,
|
|
b' : A := cast L2 b,
|
|
L3 : b == b' := cast::eq L2 b,
|
|
L4 : a == b' := htrans H3 L3,
|
|
L5 : f a == f b' := congr2 f L4
|
|
in L5
|