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)