pi/tests/id2.pi

4 lines
197 B
Plaintext
Raw Normal View History

2022-07-26 23:07:13 +02:00
let ap : Π (A : Type) Π (B : Type) Π (f : A → B)
Π (x : A) Π (y : A) Id A x y → Id B (f x) (f y)
≔ λA.λB.λf.λx.λy. J A x y (λa.λb.λ_. Id B (f a) (f b)) (refl B (f x))