fact: Definition right_product (T:Tensor) (M:Matrix) : 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 let (A,B) := (fst (fst M), snd (fst M)) in let (C,D) := (fst (snd M), snd (snd M)) in (((a*A + b*C),(a*B + b*D), ((c*A + d*C), (c*B + d*D))), ((e*A + f*C),(e*B + f*D), ((g*A + h*C), (g*B + h*D)))).
imports: Streams Streams_addenda Raxioms