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