fact: Definition denom_nonvanishing_T (xi:Tensor) r1 r2:= let (a,b) := (fst (fst (fst xi)), snd (fst (fst xi))) in let (c,d) := (fst (snd (fst xi)), snd (snd (fst xi))) in let (e,f) := (fst (fst (snd xi)), snd (fst (snd xi))) in let (g,h) := (fst (snd (snd xi)), snd (snd (snd xi))) in (e*r1*r2+f*r1+g*r2+h<>0)%R.
imports: Streams Streams_addenda Raxioms