fact: Fixpoint supp (L : clause) u b := match u,b with | fImp s t,true => supp L s false || supp L t true | fImp s t,false => supp L s true && supp L t false | fAG s,true => supp L s true && ((fAX (fAG s),true) \in L) | fAG s,false => supp L s false || ((fAX (fAG s),false) \in L) | _,_ => (u,b) \in L end.
imports: Relations mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert sltype)