proposition: Lemma StepFfoldPropglue:forall (y:StepF iffSetoid) o, StepFfoldProp (glue o (SplitL y o) (SplitR y o)) <-> StepFfoldProp y.
proof: Proof. induction y. unfold StepF_eq, StepFfoldProp. simpl; tauto. simpl. intro o0. apply SplitLR_glue_ind; intros H. generalize (IHy1 (OpenUnitDiv o0 o H)). unfold StepFfoldProp; simpl; tauto. generalize (IHy2 (OpenUnitDualDiv o0 o H)). unfold StepFfoldProp; simpl; tauto. simpl. reflexivity. Qed.
imports: CoRN.algebra.RSetoid CoRN.metric2.StepFunction CoRN.model.structures.OpenUnit CoRN.tactics.CornTac CoRN.tactics.Qauto CoRN.model.ordfields.Qordfield CoRN.algebra.COrdFields