fact: Fixpoint pickle (s : form) := match s with | fV v => Leaf v | fF => Node 0 [::] | fImp s t => Node 1 [:: pickle s ; pickle t] | fAX s => Node 2 [:: pickle s] | fAU s t => Node 3 [:: pickle s; pickle t] | fAR s t => Node 4 [:: pickle s; pickle t] end.
imports: mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert sltype)