Definition squash_unsquash := K.squash_unsquash.Definition unsquash_squash := K.unsquash_squash.Definition knot_age1 := K.knot_age1.Definition knot_level := K.knot_level.Module K := K'.

Lemma unsquash_approx : forall k n Fp, unsquash k = (n, Fp) -> Fp = fmap KI.F (approx n) (approx n) Fp.