alt+ ( x y -- x+y )

Vocabulary

koszul

Inputs

x	an object
y	an object

Outputs

x+y

an object

Definition

USING: kernel ;

IN: koszul

: alt+ ( x y -- x+y )
    [ >alt ] bi@ [ (alt+) (alt+) ] with-terms ;