]     \\ fs [compile_op_def,evaluate_def,do_app_def,arg0_def]     \\ imp_res_tac state_rel_LEAST \\ fs []     \\ fs [state_rel_def,store_rel_def]     \\ strip_tac     \\ first_assum (qspec_then `i` mp_tac)     \\ rewrite_tac [GSYM NOT_LESS,FLOOKUP_UPDATE,EL_LUPDATE]     \\ 