proposition: Lemma Map_identity (X : RSetoid) : forall (a:StepF X), (@id X) ^@> a == a.
proof: Proof. intros a. now rewrite <-(Map_identity a) at 2. 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