Theory Support

Up to index of Isabelle/HOL/HOL-Nominal/Examples

theory Support
imports Nominal
begin

(* $Id: Support.thy,v 1.7 2008/05/07 08:58:22 berghofe Exp $ *)

theory Support 
  imports "../Nominal" 
begin

text {* 
  An example showing that in general

  x\<sharp>(A ∪ B) does not imply  x\<sharp>A and  x\<sharp>B

  For this we set A to the set of even atoms and B to 
  the set of odd atoms. Then A ∪ B, that is the set of 
  all atoms, has empty support. The sets A, respectively B, 
  however have the set of all atoms as their support. 
*}

atom_decl atom

text {* The set of even atoms. *}
abbreviation
  EVEN :: "atom set"
where
  "EVEN ≡ {atom n | n. ∃i. n=2*i}"

text {* The set of odd atoms: *}
abbreviation  
  ODD :: "atom set"
where
  "ODD ≡ {atom n | n. ∃i. n=2*i+1}"

text {* An atom is either even or odd. *}
lemma even_or_odd:
  fixes n::"nat"
  shows "∃i. (n = 2*i) ∨ (n=2*i+1)"
  by (induct n) (presburger)+

text {* 
  The union of even and odd atoms is the set of all atoms. 
  (Unfortunately I do not know a simpler proof of this fact.) *}
lemma EVEN_union_ODD:
  shows "EVEN ∪ ODD = UNIV"
  using even_or_odd
proof -
  have "EVEN ∪ ODD = (λn. atom n) ` {n. ∃i. n = 2*i} ∪ (λn. atom n) ` {n. ∃i. n = 2*i+1}" by auto
  also have "… = (λn. atom n) ` ({n. ∃i. n = 2*i} ∪ {n. ∃i. n = 2*i+1})" by auto
  also have "… = (λn. atom n) ` ({n. ∃i. n = 2*i ∨ n = 2*i+1})" by auto
  also have "… = (λn. atom n) ` (UNIV::nat set)" using even_or_odd by auto
  also have "… = (UNIV::atom set)" using atom.exhaust
    by (rule_tac  surj_range) (auto simp add: surj_def)
  finally show "EVEN ∪ ODD = UNIV" by simp
qed

text {* The sets of even and odd atoms are disjunct. *}
lemma EVEN_intersect_ODD:
  shows "EVEN ∩ ODD = {}"
  using even_or_odd
  by (auto) (presburger)

text {* 
  The preceeding two lemmas help us to prove 
  the following two useful equalities: *}

lemma UNIV_subtract:
  shows "UNIV - EVEN = ODD"
  and   "UNIV - ODD  = EVEN"
  using EVEN_union_ODD EVEN_intersect_ODD
  by (blast)+

text {* The sets EVEN and ODD are infinite. *}
lemma EVEN_ODD_infinite:
  shows "infinite EVEN"
  and   "infinite ODD"
unfolding infinite_iff_countable_subset
proof -
  let ?f = "λn. atom (2*n)"
  have "inj ?f ∧ range ?f ⊆ EVEN" by (auto simp add: inj_on_def)
  then show "∃f::nat=>atom. inj f ∧ range f ⊆ EVEN" by (rule_tac exI)
next
  let ?f = "λn. atom (2*n+1)"
  have "inj ?f ∧ range ?f ⊆ ODD" by (auto simp add: inj_on_def)
  then show "∃f::nat=>atom. inj f ∧ range f ⊆ ODD" by (rule_tac exI)
qed

text {* 
  A general fact about a set S of atoms that is both infinite and 
  coinfinite. Then S has all atoms as its support. Steve Zdancewick 
  helped with proving this fact. *}

lemma supp_infinite_coinfinite:
  fixes S::"atom set"
  assumes asm1: "infinite S"
  and     asm2: "infinite (UNIV-S)"
  shows "(supp S) = (UNIV::atom set)"
proof -
  have "∀(x::atom). x∈(supp S)"
  proof
    fix x::"atom"
    show "x∈(supp S)"
    proof (cases "x∈S")
      case True
      have "x∈S" by fact
      hence "∀b∈(UNIV-S). [(x,b)]•S≠S" by (auto simp add: perm_set_eq calc_atm)
      with asm2 have "infinite {b∈(UNIV-S). [(x,b)]•S≠S}" by (rule infinite_Collection)
      hence "infinite {b. [(x,b)]•S≠S}" by (rule_tac infinite_super, auto)
      then show "x∈(supp S)" by (simp add: supp_def)
    next
      case False
      have "x∉S" by fact
      hence "∀b∈S. [(x,b)]•S≠S" by (auto simp add: perm_set_eq calc_atm)
      with asm1 have "infinite {b∈S. [(x,b)]•S≠S}" by (rule infinite_Collection)
      hence "infinite {b. [(x,b)]•S≠S}" by (rule_tac infinite_super, auto)
      then show "x∈(supp S)" by (simp add: supp_def)
    qed
  qed
  then show "(supp S) = (UNIV::atom set)" by auto
qed

text {* As a corollary we get that EVEN and ODD have infinite support. *}
lemma EVEN_ODD_supp:
  shows "supp EVEN = (UNIV::atom set)"
  and   "supp ODD  = (UNIV::atom set)"
  using supp_infinite_coinfinite UNIV_subtract EVEN_ODD_infinite
  by simp_all

text {* 
  The set of all atoms has empty support, since any swappings leaves 
  this set unchanged. *}

lemma UNIV_supp:
  shows "supp (UNIV::atom set) = ({}::atom set)"
proof -
  have "∀(x::atom) (y::atom). [(x,y)]•UNIV = (UNIV::atom set)"
    by (auto simp add: perm_set_eq calc_atm)
  then show "supp (UNIV::atom set) = ({}::atom set)" by (simp add: supp_def)
qed

text {* Putting everything together. *}
theorem EVEN_ODD_freshness:
  fixes x::"atom"
  shows "x\<sharp>(EVEN ∪ ODD)"
  and   "¬x\<sharp>EVEN"
  and   "¬x\<sharp>ODD"
  by (auto simp only: fresh_def EVEN_union_ODD EVEN_ODD_supp UNIV_supp)

text {* Moral: support is a sublte notion. *}

end

lemma even_or_odd:

  i. n = 2 * in = 2 * i + 1

lemma EVEN_union_ODD:

  EVENODD = UNIV

lemma EVEN_intersect_ODD:

  EVENODD = {}

lemma UNIV_subtract(1):

  UNIV - EVEN = ODD

and UNIV_subtract(2):

  UNIV - ODD = EVEN

lemma EVEN_ODD_infinite(1):

  infinite EVEN

and EVEN_ODD_infinite(2):

  infinite ODD

lemma supp_infinite_coinfinite:

  [| infinite S; infinite (UNIV - S) |] ==> supp S = UNIV

lemma EVEN_ODD_supp(1):

  supp EVEN = UNIV

and EVEN_ODD_supp(2):

  supp ODD = UNIV

lemma UNIV_supp:

  supp UNIV = {}

theorem EVEN_ODD_freshness(1):

  x \<sharp> (EVENODD)

and EVEN_ODD_freshness(2):

  ¬ x \<sharp> EVEN

and EVEN_ODD_freshness(3):

  ¬ x \<sharp> ODD