]     \\ fs [SWAP_REVERSE_SYM] \\ rw [] \\ fs [PULL_EXISTS]     \\ fs [compile_op_def,evaluate_def,do_app_def,arg0_def]     \\ fs [pair_case_eq,result_case_eq] \\ rveq \\ fs []     \\ fs [state_rel_def,store_rel_def