2014-12-16 21:28:43 +00:00
|
|
|
open eq tactic
|
|
|
|
|
open eq (rec_on)
|
|
|
|
|
|
|
|
|
|
definition concat_whisker2 {A} {x y z : A} (p p' : x = y) (q q' : y = z) (a : p = p') (b : q = q') :
|
2015-02-22 17:39:27 +00:00
|
|
|
(whisker_right a q) ⬝ (whisker_left p' b) = (whisker_left p b) ⬝ (whisker_right a q') :=
|
2014-12-16 21:28:43 +00:00
|
|
|
begin
|
|
|
|
|
apply (rec_on b),
|
|
|
|
|
apply (rec_on a),
|
2015-02-22 17:39:27 +00:00
|
|
|
apply ((idp_con _)⁻¹),
|
2014-12-16 21:28:43 +00:00
|
|
|
end
|
