2014-12-01 05:16:01 +00:00
|
|
|
import hott.path
|
2014-10-24 05:40:15 +00:00
|
|
|
open path
|
|
|
|
|
|
|
|
|
|
definition concat_pV_p {A : Type} {x y z : A} (p : x ≈ z) (q : y ≈ z) : (p ⬝ q⁻¹) ⬝ q ≈ p :=
|
|
|
|
|
begin
|
|
|
|
|
generalize p,
|
2014-10-25 20:36:38 +00:00
|
|
|
apply (path.rec_on q),
|
2014-10-24 05:40:15 +00:00
|
|
|
intro p,
|
2014-10-25 20:36:38 +00:00
|
|
|
apply (path.rec_on p),
|
2014-10-24 05:40:15 +00:00
|
|
|
apply idp
|
|
|
|
|
end
|
