fact: Fixpoint ssub' b s := (s,b) |` match s with | fImp s t => ssub' (negb b) s `|` ssub' b t | fAX t => ssub' b t | fAU s t => (fAX (fAU s t),b) |` (ssub' b s `|` ssub' b t) | fAR s t => (fAX (fAR s t),b) |` (ssub' b s `|` ssub' b t) | _ => fset0 end.
imports: mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert sltype)