Skip to content
Permalink
Browse files

Fix examples/array_searchProg for HOL's change to MEM_DROP thms

  • Loading branch information...
mn200 committed Jul 3, 2019
1 parent d697572 commit 3307d9840e93caaed0969c033bf55b654361b12a
Showing with 1 addition and 4 deletions.
  1. +1 −4 examples/array_searchProgScript.sml
@@ -638,10 +638,7 @@ Proof
[`value_v`, `EL mid elems`, `EL mid elem_vs`]
mp_tac) >> fs[] >>
strip_tac >> metis_tac[]) >>
(qspecl_then [`start`, `TAKE finish elems`]
mp_tac) MEM_DROP >>
impl_tac >> fs[LENGTH_TAKE] >>
rw[] >> metis_tac[]
metis_tac[MEM_DROP_IMP]
)
>- (first_x_assum match_mp_tac >> fs[] >>
(qspecl_then [`TAKE finish elems`, `start`,

0 comments on commit 3307d98

Please sign in to comment.
You can’t perform that action at this time.