(*
Zero
*)

Definition zero_mon : forall d : nat, mon d.

(* Specifications: *)
Theorem mult_mon_zero_r : forall (d : nat) (a : mon d), mult_mon d a (zero_mon d) = a.
Theorem mult_mon_zero_l : forall (d : nat) (a : mon d), mult_mon d (zero_mon d) a = a.