Trimming an extended blockchain to the smallest round of the extension yields the shorter blockchain.
This is used to show that
trimming the longer blockchain yields the shorter blockchain.
We use the formulation with append,
where
Theorem:
(defthm trim-blocks-for-round-of-append-yields-first (implies (and (blocks-orderedp (append blocks1 blocks2)) (consp blocks1)) (equal (trim-blocks-for-round (block->round (car (last blocks1))) (append blocks1 blocks2)) (block-list-fix blocks2))))