Bool01(B: BOOL): INT
/**/ Id4 := matrix([[Bool01(i=j) | i in 1..4] | j in 1..4]); /**/ Id4; matrix(QQ, [[1, 0, 0, 0], [0, 1, 0, 0], [0, 0, 1, 0], [0, 0, 0, 1]])