proposition: Lemma Rmessages_app : forall ms1 ms2 ms1' ms2', Rmessages ms1 ms2 -> Rmessages ms1' ms2' -> Rmessages (ms1 ++ ms1') (ms2 ++ ms2').
proof: Proof. induction 1; simpl; intuition. Qed.
imports: Coq(FunctionalExtensionality Arith Lia) Coq(Arith.Peano_dec Arith.Compare_dec) Coq(Relations.Relation_Operators) Coq(List) Chapar(Predefs)