proposition: Lemma rel_incl_rtclosure_rtclosure : forall R1 R2, rel_incl R1 (rtclosure R2) -> rel_incl (rtclosure R1) (rtclosure R2).
proof: Proof. Proof using. unfolds rel_incl. introv H M. induction* M. Qed.
imports: TLC(LibTactics LibLogic LibBool LibLogic LibProd LibSum)