Module KnotLemmas_CovariantHeredPropOthRel
(K: KNOT__COVARIANT_HERED_PROP_OTH_REL).
Arguments unsquash_inj [k1 k2] _.

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