fact: Fixpoint StepF_Qeq (s1 s2: StepF) : Prop := match s1, s2 with |constStepF x, constStepF y => x = y |glue a x1 x2, glue b y1 y2 => a == b /\ (StepF_Qeq x1 y1) /\ (StepF_Qeq x2 y2) |_, _ => False end.
imports: CoRN.model.structures.OpenUnit CoRN.tactics.CornTac CoRN.tactics.Qauto CoRN.model.ordfields.Qordfield CoRN.algebra.COrdFields