# NOT RUN {
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