MODIFY_CONS : (thm -> thm) -> thm -> thm
|- !x. a1 ==> !y. a2 ==> !z. a3 ==> !u. t ----------------------------------------- MODIFY_CONS g |- a1 ==> a2 ==> a3 ==> t'
 |- !s t. s SUBSET t ==> (s UNION (t DIFF s) = t) /\ ....
 -------------------------------------------------------- MODIFY_CONS CONJUNCT1
       |- s SUBSET t ==> (s UNION (t DIFF s) = t)