src/cartesian/kernel/core/mul.js

/**
 * Multiplication algorithm
 */

export default ( mul , add , sub ) =>  ( a , b , c , d )  => [ sub( mul( a , c ) , mul( b , d ) ) ,  add( mul( a , d ) , mul( b , c ) ) ] ;