fact: Definition Mirror :StepF -> StepF := StepFfold constStepF (fun a l r => glue (OpenUnitDual a) r l).
imports: CoRN.model.structures.OpenUnit CoRN.tactics.CornTac CoRN.tactics.Qauto CoRN.model.ordfields.Qordfield CoRN.algebra.COrdFields