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

Lemma pred_ext : forall (p1 p2: assert),
(forall x, proj1_sig p1 x = proj1_sig p2 x) ->
p1 = p2.