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

Lemma pred_ext : forall (p1 p2:predicate),
(forall x, proj1_sig (bij_f _ _ KO.pkp p1) x =
proj1_sig (bij_f _ _ KO.pkp p2) x) ->
p1 = p2.