proposition: Lemma CompactImage_approx : forall (s : Compact X) (e : Qpos), approximate (CompactImage s) e = map f (approximate s (match mu f e with | QposInfinity => z | Qpos2QposInf d => d end)).
proof: Proof. intros. simpl. unfold FinEnum_map_modulus. destruct (mu f e); reflexivity. Qed.
imports: CoRN.model.totalorder.QposMinMax CoRN.metric2.Limit CoRN.metric2.FinEnum Coq.ZArith.Zpow_facts CoRN.metric2.Complete CoRN.logic.Classic Coq.QArith.Qpower Coq.QArith.Qround CoRN.metric2.Prelength