_def]     \\ rename [`i < LENGTH s0.refs`]     \\ first_assum (qspec_then `i` mp_tac)     \\ rewrite_tac [GSYM NOT_LESS]     \\ Cases_on `EL i s0.refs` \\ fs [store_v_same_type_def]     \\ rpt strip_tac \\ fs []     \\ strip_tac     \\ fs [GSYM NOT_LESS,FLOOKUP_UPDATE,EL_LUPDATE]