proposition: Lemma id_is_rht_unit : forall A : CSetoid, is_rht_unit (comp_as_bin_op A) (FS_id A).
proof: Proof. unfold is_rht_unit in |- *. unfold comp_as_bin_op in |- *. unfold FS_id in |- *. simpl in |- *. unfold eq_fun in |- *. unfold id_un_op in |- *. simpl in |- *. intuition. Qed.
imports: Coq.Arith.Euclid CoRN.model.Zmod.Cmod CoRN.algebra.CSemiGroups CoRN.tactics.csetoid_rewrite CoRN.model.structures.Nsec CoRN.util.SetoidPermutation Coq.Setoids.Setoid Coq.Classes.Morphisms