2013-09-06 20:45:26 -07:00
|
|
|
|
Set: pp::colors
|
|
|
|
|
Set: pp::unicode
|
2013-12-28 19:20:04 -08:00
|
|
|
|
Imported 'cast'
|
2013-09-06 20:45:26 -07:00
|
|
|
|
Assumed: A
|
|
|
|
|
Assumed: A'
|
|
|
|
|
Assumed: B
|
|
|
|
|
Assumed: B'
|
|
|
|
|
Assumed: x
|
2014-01-05 19:10:21 -08:00
|
|
|
|
cast (refl A) x
|
|
|
|
|
x == cast (refl A) x
|
2013-09-06 20:45:26 -07:00
|
|
|
|
Assumed: b
|
|
|
|
|
Defined: f
|
|
|
|
|
Assumed: H
|
|
|
|
|
Assumed: a'
|
2013-12-21 18:23:37 -08:00
|
|
|
|
cast H (λ x : A, b) a'
|
2013-09-06 20:45:26 -07:00
|
|
|
|
Assumed: H2
|
|
|
|
|
Defined: g
|
|
|
|
|
0
|
2013-09-08 22:54:22 -07:00
|
|
|
|
g (cast H2 f a') : ℕ
|
2013-12-21 18:23:37 -08:00
|
|
|
|
cast H2 (λ x : A, b) a'
|
2013-09-06 20:45:26 -07:00
|
|
|
|
Assumed: A1
|
|
|
|
|
Assumed: A2
|
|
|
|
|
Assumed: A3
|
|
|
|
|
Assumed: Ha
|
|
|
|
|
Assumed: Hb
|
|
|
|
|
Assumed: a
|
2013-12-21 18:23:37 -08:00
|
|
|
|
cast Hb (cast Ha a)
|
2013-09-08 22:54:22 -07:00
|
|
|
|
cast Hb (cast Ha a) : A3
|