fact: Definition left_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 + c*C),(b*A + d*C), ((a*B + c*D), (b*B + d*D))), ((e*A + g*C),(f*A + h*C), ((e*B + g*D), (f*B + h*D)))).
imports: Streams Streams_addenda Raxioms