2014-10-20 15:58:11 -07:00
|
|
|
import hott.path tools.tactic
|
|
|
|
|
|
|
|
open path tactic
|
2014-10-25 13:36:38 -07:00
|
|
|
open path (rec_on)
|
2014-10-20 15:58:11 -07:00
|
|
|
|
|
|
|
definition concat_whisker2 {A} {x y z : A} (p p' : x ≈ y) (q q' : y ≈ z) (a : p ≈ p') (b : q ≈ q') :
|
2014-10-21 16:28:36 -07:00
|
|
|
(whiskerR a q) ⬝ (whiskerL p' b) ≈ (whiskerL p b) ⬝ (whiskerR a q') :=
|
2014-10-20 15:58:11 -07:00
|
|
|
begin
|
2014-10-25 13:36:38 -07:00
|
|
|
apply (rec_on b),
|
|
|
|
apply (rec_on a),
|
2014-10-22 15:18:43 -07:00
|
|
|
apply ((concat_1p _)⁻¹),
|
2014-10-20 15:58:11 -07:00
|
|
|
end
|