fact: Fixpoint oplus_nullary {X:Type} (p:WFT X) (q:WFT X) := match p with | ZT => q | SUP f => SUP (fun x => oplus_nullary (f x) q) end.
imports: Equations(Equations) Examples.Fin Relations Utf8 Relations Wellfounded Setoid RelationClasses Morphisms Lia Bool List Arith String Coq(FunctionalExtensionality)