fact: Definition ACsqrt (z : AC) (yDec : {ARle 0 (snd z)} + {ARle (snd z) 0}) : AC := pair (ARsqrt ((ACmodulus z + fst z) * inject_Q_AR (1#2))) ((if yDec then 1 else -1) * (ARsqrt ((ACmodulus z - fst z) * inject_Q_AR (1#2)))).
imports: CoRN.algebra.RSetoid CoRN.metric2.Metric CoRN.metric2.UniformContinuity Coq.QArith.Qabs CoRN.model.metric2.Qmetric CoRN.metric2.ProductMetric CoRN.model.totalorder.QposMinMax CoRN.model.totalorder.QMinMax CoRN.reals.faster.ARabs CoRN.reals.faster.ARroot CoRN.reals.faster.ARArith