fact: Definition rtrans a C D := (R a C `<=` D) && (Rc a D `<=` C).
imports: Relations Classical_Pred_Type mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base) CompDecModal.CPDL(PDL_def)