<<VilGebra`

B={{1,0,0,1,0},{0,2,0,0,1},{1,0,2,-1,0}};
PrOt[{2,1,3,-1,4},B]
ComplementOt[{2,1,3,-1,4},B]