fact: Definition Bounded_T (T:Tensor):= let (a,b) := (fst (fst (fst T)), snd (fst (fst T))) in let (c,d) := (fst (snd (fst T)), snd (snd (fst T))) in let (e,f) := (fst (fst (snd T)), snd (fst (snd T))) in let (g,h) := (fst (snd (snd T)), snd (snd (snd T))) in (Qlt Zero (e+f+g+h) /\ Qlt Zero (e-f-g+h) /\ Qlt Zero (-e-f+g+h) /\ Qlt Zero (-e+f-g+h)) \/ (Qlt (e+f+g+h) Zero /\ Qlt (e-f-g+h) Zero /\ Qlt (-e-f+g+h) Zero /\ Qlt (-e+f-g+h) Zero).
imports: Streams Streams_addenda Raxioms