Module KnotLemmas_CoContraVariantHeredTOthRel
(K: KNOT__COCONTRAVARIANT_HERED_T_OTH_REL).
Arguments unsquash_inj [k1 k2] _.

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