2013-12-22 02:23:37 +00:00
|
|
|
Set: pp::colors
|
|
|
|
Set: pp::unicode
|
2013-12-28 20:24:13 +00:00
|
|
|
Imported 'cast'
|
2013-12-22 02:23:37 +00:00
|
|
|
Set: pp::colors
|
|
|
|
λ (A A' : TypeM)
|
|
|
|
(B : A → TypeM)
|
|
|
|
(B' : A' → TypeM)
|
2014-01-08 08:38:39 +00:00
|
|
|
(f : ∀ x : A, B x)
|
|
|
|
(g : ∀ x : A', B' x)
|
2013-12-22 02:23:37 +00:00
|
|
|
(a : A)
|
|
|
|
(b : A')
|
|
|
|
(H2 : f == g)
|
|
|
|
(H3 : a == b),
|
2014-01-09 00:19:11 +00:00
|
|
|
hcongr H2 H3 :
|
2014-01-08 08:38:39 +00:00
|
|
|
∀ (A A' : TypeM)
|
|
|
|
(B : A → TypeM)
|
|
|
|
(B' : A' → TypeM)
|
|
|
|
(f : ∀ x : A, B x)
|
|
|
|
(g : ∀ x : A', B' x)
|
|
|
|
(a : A)
|
|
|
|
(b : A'),
|
2014-01-09 00:19:11 +00:00
|
|
|
f == g → a == b → f a == g b
|