At: covers pred addprime Q:Fmla, A:ioa{i:l}(). covers_pred(A;(Q)') covers_pred(A;Q) By: Unfolds [`covers_pred`;`pred_addprime`] 0
THEN
Try ((Unfold `pred` 0) THEN (Fold `pred` 0))
THEN
All (RW ColMemberC)
THEN
Try BackThruSomeHyp
THEN
All (Unfold `pred_mentions`)
THEN
All (RW ColMemberC)
THEN
ExRepD
THEN
Try ((InstConcl [r@0]) THEN (Try (Fold `pred` 0)) THEN (HypSubst -2 -1))
THEN
Try ((InstConcl [(r)']) THEN (Try (AutoInstConcl [])) THEN (Try (Fold `pred` 0)))
THEN
All (Unfolds [`rel_addprime`;`rel_mentions`])
THEN
ExRepD
THEN
InstConcl [i]
THEN
All Reduce
THEN
All (i.RWW "map_length_nat" i)
THEN
All (i.(RWW "map_select" i) THEN (Reduce i)) Generated subgoals: