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_approx_unfolded : forall k, unsquash k = (fst (unsquash k), fmap F (approx (fst (unsquash k))) (snd (unsquash k))).