Definition knot_level := K.knot_level.Definition knot_age1 := K.knot_age1.Module K' := KnotProp2Knot(K.TF)(K).Module KL := Knot_Lemmas(K').

Lemma unsquash_squash_unfolded : forall nf, unsquash (squash nf) = (fst nf, fmap F (approx (fst nf)) (snd nf)).