Module KL := Knot_Lemmas(K').
Arguments unsquash_inj [k1 k2] _.
Arguments unsquash_approx [k n Fp] _.

Lemma unsquash_approx_unfolded : forall k,
unsquash k = (fst (unsquash k), fmap F (approx (fst (unsquash k))) (snd (unsquash k))).