USING: kernel fry accessors math ;
IN: automatic-differentiation

TUPLE: dual ordinary-part epsilon-part ;

C: <dual> dual

M: dual + [ ordinary-part>> ] [ epsilon-part>> ] 2bi [ + ] 2bi@ <dual> ;