proposition: Lemma sts_agreement : XM -> DC -> forall (M:sts) (w :M) s, eval s w <-> satisfies s w.
proof: Proof. exact: sts_agreement. Qed.
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)