Module KnotLemmas_CovariantHeredPropOthRel
(K: KNOT__COVARIANT_HERED_PROP_OTH_REL).
Arguments unsquash_inj [k1 k2] _.
Arguments unsquash_approx [k n Fp] _.

Lemma approx_spec': forall n p ko,
proj1_sig (approx n p) ko =
if (le_gt_dec n (level (fst ko))) then False else proj1_sig p ko.