fact: Fixpoint Ap (X Y:Type) (f:StepF (X->Y)) (a:StepF X) : StepF Y := match f with |constStepF f0 => f0 ^@> a |glue o f0 f1 => let (l,r):=Split a o in (glue o (Ap f0 l) (Ap f1 r)) end.
imports: CoRN.model.structures.OpenUnit CoRN.tactics.CornTac CoRN.tactics.Qauto CoRN.model.ordfields.Qordfield CoRN.algebra.COrdFields