proposition: Lemma right_left_product_idM_identity_right:forall T, right_product (left_product T idM) idM = T.
proof: Proof. intros (((a,b),(c,d)),((e,f),(g,h))); unfold idM, left_product, right_product, fst, snd, Qdiv at 2 3 6 7; rewrite Qmult_zero; repeat rewrite Qmult_zero_right; repeat rewrite Qplus_zero_right; repeat rewrite Qplus_zero_left; qZ_numerals; rewrite Qdiv_Qone_Qone; repeat rewrite Qmult_one_right; trivial. Qed.
imports: Streams Streams_addenda Raxioms