2014-01-05 20:05:08 +00:00
|
|
|
variable C {A B : Type} (H : A = B) (a : A) : B
|
2013-09-07 00:58:45 +00:00
|
|
|
|
2014-01-05 20:05:08 +00:00
|
|
|
variable D {A A' : Type} {B : A -> Type} {B' : A' -> Type} (H : (Pi x : A, B x) = (Pi x : A', B' x)) : A = A'
|
2013-09-07 00:58:45 +00:00
|
|
|
|
2014-01-05 20:05:08 +00:00
|
|
|
variable R {A A' : Type} {B : A -> Type} {B' : A' -> Type} (H : (Pi x : A, B x) = (Pi x : A', B' x)) (a : A) :
|
2013-09-07 00:58:45 +00:00
|
|
|
(B a) = (B' (C (D H) a))
|
|
|
|
|
|
2014-01-05 20:05:08 +00:00
|
|
|
theorem R2 : Pi (A1 A2 B1 B2 : Type) (H : (A1 -> B1) = (A2 -> B2)) (a : A1), B1 = B2 :=
|
2013-09-07 00:58:45 +00:00
|
|
|
fun A1 A2 B1 B2 H a, R H a
|
|
|
|
|
|
2014-01-05 20:05:08 +00:00
|
|
|
setoption pp::implicit true
|
|
|
|
|
print environment 7.
|
