23 lines
507 B
Plaintext
23 lines
507 B
Plaintext
|
(*
|
||
|
* Copyright 2014, NICTA
|
||
|
*
|
||
|
* This software may be distributed and modified according to the terms of
|
||
|
* the GNU General Public License version 2. Note that NO WARRANTY is provided.
|
||
|
* See "LICENSE_GPLv2.txt" for details.
|
||
|
*
|
||
|
* @TAG(NICTA_GPL)
|
||
|
*)
|
||
|
|
||
|
theory MoreHOL
|
||
|
imports "~~/src/HOL/Main"
|
||
|
begin
|
||
|
|
||
|
(*
|
||
|
* Simplification of a common pattern that comes out of
|
||
|
* expansions of "corres_underlying".
|
||
|
*)
|
||
|
lemma tuple_relation_to_function [simp]: "((a, b) \<in> {(s, s'). f s' = s}) = (a = f b)"
|
||
|
by auto
|
||
|
|
||
|
end
|