Definition proof_irr_nat := eq_proofs_unicity dec_eq_nat.
Arguments proof_irr_nat [x] [y] _ _.

Lemma stratify_unstratify_more : forall n m1 m2 p1 p2,
floor m1 n p1 = floor m2 n p2 ->
(stratify n oo unstratify (m1+n)) p1 =
(stratify n oo unstratify (m2+n)) p2.