fact: Hypothesis hyp_AR : forall (M : fmodel) (w : M) (s t : form), cAR (@trans M) (eval s) (eval t) w -> pAR' (@trans M) (satisfies s) (satisfies t) w.
imports: mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert sltype) CompDecModal.CTL(CTL_def dags demo agreement hilbert hilbert_ref hilbert_LS hilbert_Eme90) CompDecModal.CTL(gen_def gen_dec gen_hsound gen_ref)