CONSEQ_REWRITE_CONV : (thm list * thm list * thm list) -> directed_conseq_conv
val rewrite_every_thm = |- FEVERY P FEMPTY /\ (FEVERY P f /\ P (x,y) ==> FEVERY P (f |+ (x,y)));
CONSEQ_REWRITE_CONV ([], [rewrite_every_thm], []) CONSEQ_CONV_STRENGTHEN_direction ``!y2. FEVERY P (f |+ (x1, y1) |+ (x2,y2)) /\ Q z``
|- (!y2. ((FEVERY P f /\ P (x1, y1)) /\ P (x2,y2)) /\ Q z) ==> (!y2. FEVERY P (f |+ (x1, y1) |+ (x2,y2)) /\ Q z)
More examples can be found at the end of ConseqConv.sml.