fact: Definition Is_refining_T T:= 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 Bounded_T T /\ ((Qle Zero (a+b+c+d+e+f+g+h) /\ Qle Zero (-a-b-c-d+e+f+g+h) /\ Qle Zero (a-b-c+d+e-f-g+h) /\ Qle Zero (-a+b+c-d+e-f-g+h) /\ Qle Zero (-a-b+c+d-e-f+g+h) /\ Qle Zero (a+b-c-d-e-f+g+h) /\ Qle Zero (-a+b-c+d-e+f-g+h) /\ Qle Zero (a-b+c-d-e+f-g+h)) \/ (Qle (a+b+c+d+e+f+g+h) Zero /\ Qle (-a-b-c-d+e+f+g+h) Zero /\ Qle (a-b-c+d+e-f-g+h) Zero /\ Qle (-a+b+c-d+e-f-g+h) Zero /\ Qle (-a-b+c+d-e-f+g+h) Zero /\ Qle (a+b-c-d-e-f+g+h) Zero /\ Qle (-a+b-c+d-e+f-g+h) Zero /\ Qle (a-b+c-d-e+f-g+h) Zero)).
imports: Streams Streams_addenda Raxioms