fact: Fixpoint f_weight (s : form) := match s with | fImp s t => (f_weight s + f_weight t).+1 | fAU s t => (f_weight s + f_weight t).+1 | fAR s t => (f_weight s + f_weight t).+1 | _ => 0 end.
imports: mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert sltype)