fact: Definition Is_refining_M M:= let (a,b) := (fst (fst M), snd (fst M)) in let (c,d) := (fst (snd M), snd (snd M)) in Bounded_M M /\ ((Qle Zero (a+b+c+d) /\ Qle Zero (a-b-c+d) /\ Qle Zero (-a-b+c+d) /\ Qle Zero (-a+b-c+d)) \/ (Qle (a+b+c+d) Zero /\ Qle (a-b-c+d) Zero /\ Qle (-a-b+c+d) Zero /\ Qle (-a+b-c+d) Zero)).
imports: Streams Streams_addenda Raxioms