fact: Fixpoint StepFfold (Y : Type) (f : X -> Y) (g : OpenUnit -> Y -> Y -> Y) (s : StepF) {struct s} : Y := match s with | constStepF x => f x | glue b t1 t2 => g b (StepFfold f g t1) (StepFfold f g t2) end.
imports: CoRN.model.structures.OpenUnit CoRN.tactics.CornTac CoRN.tactics.Qauto CoRN.model.ordfields.Qordfield CoRN.algebra.COrdFields