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