fact: Definition ev_cond u G := let C := label (root G) in match u with | fAX (fAU s t)^+ => (u \in C) && C |> s^+ -> forall x:G, if leaf x then label x |> t^+ else label x |> s^+ | fAX (fAR s t)^- => (u \in C) && C |> s^- -> (forall x:G, ~~ leaf x -> label x |> s^-) /\ (exists x:G, label x |> t^-) | _ => True end.
imports: mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base sltype) CompDecModal.CTL(CTL_def dags)