Forgot some @

This commit is contained in:
Glen Whitney 2017-10-29 19:08:30 -04:00
parent 12f5e28112
commit 988b6aa86e

View File

@ -10,12 +10,12 @@ LInertumFamily@ := NewFamily("LeftInertFamily", IsLInertum,
IsLSelfDistElement and IsIdempotent);
RInertumFamily@ := NewFamily("RightInertFamily", IsRInertum,
IsRSelfDistElement and IsIdempotent);
LInertumType@ := NewType(LInertumFamily,
LInertumType@ := NewType(LInertumFamily@,
IsLInertum and IsPositionalObjectOneSlotRep);
RInertumType@ := NewType(RInertumFamily,
RInertumType@ := NewType(RInertumFamily@,
IsRInertum and IsPositionalObjectOneSlotRep);
LInertum@ := i -> Objectify(LInertumType, [i]);
RInertum@ := i -> Objectify(RInertumType, [i]);
LInertum@ := i -> Objectify(LInertumType@, [i]);
RInertum@ := i -> Objectify(RInertumType@, [i]);
WhichI@ := obj -> obj![1];