fact: Definition Incl_M (M:Matrix) (D:Digit) := let (a,b) := (fst (fst M), snd (fst M)) in let (c,d) := (fst (snd M), snd (snd M)) 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_M M /\ (d-c)*((d-c)*(dig2-dig1))<= (d-c)*((b-a)*(dig4-dig3)) /\ (d-c)*((b-a)*(dig3+dig4))<= (d-c)*((d-c)*(dig1+dig2)) /\ (d+c)*((c+d)*(dig2-dig1))<= (d+c)*((a+b)*(dig4-dig3)) /\ (d+c)*((a+b)*(dig3+dig4))<= (d+c)*((c+d)*(dig1+dig2)).
imports: Streams Streams_addenda Raxioms