22 lines
450 B
Text
22 lines
450 B
Text
Set: pp::colors
|
|
Set: pp::unicode
|
|
Imported 'cast'
|
|
Set: pp::colors
|
|
λ (A A' : TypeM)
|
|
(B : A → TypeM)
|
|
(B' : A' → TypeM)
|
|
(f : ∀ x : A, B x)
|
|
(g : ∀ x : A', B' x)
|
|
(a : A)
|
|
(b : A')
|
|
(H2 : f == g)
|
|
(H3 : a == b),
|
|
hcongr H2 H3 :
|
|
∀ (A A' : TypeM)
|
|
(B : A → TypeM)
|
|
(B' : A' → TypeM)
|
|
(f : ∀ x : A, B x)
|
|
(g : ∀ x : A', B' x)
|
|
(a : A)
|
|
(b : A'),
|
|
f == g → a == b → f a == g b
|