proposition: Lemma clos_aeq_tc_supterm_acc_R_mon_commut : clos_aeq (supterm_acc!) @ R << R @ clos_aeq (supterm_acc!).
proof: Proof. rewrite clos_aeq_tc_supterm_acc_eq. apply commut_tc. apply clos_aeq_supterm_acc_R_mon_commut. Qed.
imports: Coq(IndefiniteDescription Structures.OrderedType) CoLoR(LogicUtil SN LCompSimple Tarski VecUtil SetUtil RelUtil)