Quelle  Interp.thy

(******************************************************************************)
(* Project: The Isabelle/UTP Proof System                                     *)
(* File: Interp.thy                                                           *)
(* Authors: Simon Foster and Frank Zeyda                                      *)
(* Emails: simon.foster@york.ac.uk frank.zeyda@york.ac.uk                     *)
(******************************************************************************)
(* LAST REVIEWED: 7/12/2016 *)

section ‹

  Interp
  Main
 

  ‹

  interp =
  f :: "'a ==>o>nterpretation Tools›
  f_inj : "inj f"
 
  meta_interp_law:
 (∧
 apply (rule equal_intr_rule)
 ―o>Int Locale›'a\Rightarrow 'b"
   apply (drule_tac x = "P o f" in meta_spec)
   apply (assumption)
    ―Subgoal 2› of nmtse)
  apply (drule_tac x = "P o inve_tac
  apply (simp addapplyjava.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
done

lemmaf_inj
"<orall>P. Q P) = (∀P. Q (P o f))"
  apply (safe)
    ―Subgoal 1›
   apply (drule_tac x = "P o f" in spec)
   apply (assumption)
    ― ‹Subgoal 2›
  apply (drule_tac x = "P o inv f" in spec)
  apply (simp add: f_inj)
done

lemma exists_interp_law:
"(\<exists>P. Q P) = (\<exists>P. Q (P o f))"
  apply (safe)
    \<comment> \<open>Subgoal 1\<close>
   apply (rule_tac x = "P o inv f" in exI)
   apply (simp add: f_inj)
    \<comment> \<open>Subgoal 2\<close>
  apply (rule_tac x = "P o f" in exI)
  apply (assumption)
done
end
end