Additive notation for working with monoids (mostly boilerplate)
import public Notation.Additive
cast : (a : MonoidStructure) -> HVect [ary 0 (U a), ary 2 (U a)]
cast : (a : Monoid) -> HVect [ary 0 (U a), ary 2 (U a)]
.Additive1 : (monoid : Monoid) -> Additive1 (U monoid)
.Additive2 : (monoid : Monoid) -> Additive2 (U monoid)
.Additive3 : (monoid : Monoid) -> Additive3 (U monoid)
notationAdd1 : Additive1 (Term Signature x)
notationAdd2 : Additive2 (Term Signature x)
notationAdd3 : Additive3 (Term Signature x)