2014-07-14 19:32:44 +00:00
|
|
|
(*
|
2020-03-09 06:18:30 +00:00
|
|
|
* Copyright 2020, Data61, CSIRO (ABN 41 687 119 230)
|
2014-07-14 19:32:44 +00:00
|
|
|
*
|
2020-03-09 06:18:30 +00:00
|
|
|
* SPDX-License-Identifier: GPL-2.0-only
|
2014-07-14 19:32:44 +00:00
|
|
|
*)
|
|
|
|
|
|
|
|
theory MoreHOL
|
2018-06-13 07:55:36 +00:00
|
|
|
imports Main
|
2014-07-14 19:32:44 +00:00
|
|
|
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
|