fact: Definition unit_model := FModel (fun _ => xpred0) (@serial_relT unit).
imports: mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base sltype) CompDecModal.CTL(CTL_def dags)