Definition ppcm_mon : forall d : nat, mon d -> mon d -> mon d.

Theorem ppcm_mom_is_ppcm : forall (d : nat) (a b c : mon d), c = mult_mon d (div_mon d c a) a -> c = mult_mon d (div_mon d c b) b -> c = mult_mon d (div_mon d c (ppcm_mon d a b)) (ppcm_mon d a b).