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

(* These are provided since sometimes it is tedious to break things out; they are not interesting except as engineering artifacts. *)
Lemma unsquash_squash_unfolded : forall nf,
unsquash (squash nf) = (fst nf, fmap F (approx (fst nf)) (snd nf)).