Module KnotFull_Lemmas (K : KNOT_FULL).
Arguments unsquash_inj [k1 k2] _.
Arguments unsquash_approx [k n Fp] _.

Lemma bimap_bimap : forall A B C X Y Z (s:X->Y) (t:Y->Z) (f:B->C) (g:A->B) x,
bimap s f (bimap t g x) = bimap (t oo s) (f oo g) x.