mk_conj : term * term -> term
# mk_conj(`1 + 1 = 2`,`2 + 2 = 4`);; val it : term = `1 + 1 = 2 /\ 2 + 2 = 4`