WEAK_CNF_CONV : conv
# WEAK_CNF_CONV `(a /\ b) \/ (a /\ b /\ c) \/ d`;;
val it : thm =
|- a /\ b \/ a /\ b /\ c \/ d <=>
((a \/ a \/ d) /\ (b \/ a \/ d)) /\
((a \/ b \/ d) /\ (b \/ b \/ d)) /\
(a \/ c \/ d) /\
(b \/ c \/ d)