fact: Definition twosquare := insert_term_list ( cons (hom / Za / Zx / Zy/ Zf) ( cons (hom / Za / Zy / Zz/ Zg) ( cons (hom / Za / Zx / Zu / Zm) ( cons (hom / Za / Zy / Zv / Zn) ( cons (hom / Za / Zz / Zw / Zp) ( cons (hom / Za / Zu / Zv / Zh) ( cons (hom / Za / Zv / Zw / Zk) ( cons (comp / Za / Zh / Zm EQU comp / Za / Zn / Zf) ( cons (comp / Za / Zk / Zn EQU comp / Za / Zp / Zg) ( nil term)))))))))) initial_term_order.