fact: Definition Incl_T (T:Tensor) (D:Digit) := 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 let (dig1,dig2) := (fst (fst (map_digits D)), snd (fst (map_digits D))) in let (dig3,dig4) := (fst (snd (map_digits D)), snd (snd (map_digits D))) in Bounded_T T /\ ((e-f-g+h)*((e-f-g+h)*(dig2-dig1))) <= ((e-f-g+h)*((a-b-c+d)*(dig4-dig3))) /\ ((e-f-g+h)*((a-b-c+d)*(dig3+dig4))) <= ((e-f-g+h)*((e-f-g+h)*(dig1+dig2))) /\ ((-e-f+g+h)*((-e-f+g+h)*(dig2-dig1))) <= ((-e-f+g+h)*((-a-b+c+d)*(dig4-dig3))) /\ ((-e-f+g+h)*((-a-b+c+d)*(dig3+dig4))) <= ((-e-f+g+h)*((-e-f+g+h)*(dig1+dig2))) /\ ((-e+f-g+h)*((-e+f-g+h)*(dig2-dig1))) <= ((-e+f-g+h)*((-a+b-c+d)*(dig4-dig3))) /\ ((-e+f-g+h)*((-a+b-c+d)*(dig3+dig4))) <= ((-e+f-g+h)*((-e+f-g+h)*(dig1+dig2))) /\ ((e+f+g+h)*((e+f+g+h)*(dig2-dig1))) <= ((e+f+g+h)*((a+b+c+d)*(dig4-dig3))) /\ ((e+f+g+h)*((a+b+c+d)*(dig3+dig4))) <= ((e+f+g+h)*((e+f+g+h)*(dig1+dig2))).
imports: Streams Streams_addenda Raxioms