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.