k1 <- as.kform(cbind(1:5,2:6),1:5)
k2 <- as.kform(cbind(5:7,6:8,7:9),1:3)
k3 <- kform_general(1:6,2)
a1 <- wedge2(k1,wedge2(k2,k3))
a2 <- wedge2(wedge2(k1,k2),k3)
is.zero(a1-a2) # NB terms of a1, a2 in a different order!
# This is why wedge(k1,k2,k3) is well-defined. Can also use ^:
k1 ^ k2 ^ k3
Run the code above in your browser using DataLab