src/HOL/Corec_Examples/Tests/Merge_C.thy
author wenzelm
Wed, 12 Mar 2025 11:39:00 +0100
changeset 82265 4b875a4c83b0
parent 62858 d72a6f9ee690
permissions -rw-r--r--
update for release;

(*  Title:      HOL/Corec_Examples/Tests/Merge_C.thy
    Author:     Aymeric Bouzy, Ecole polytechnique
    Author:     Jasmin Blanchette, Inria, LORIA, MPII
    Copyright   2015, 2016

Tests theory merges.
*)

section \<open>Tests Theory Merges\<close>

theory Merge_C
imports Merge_A
begin

consts fc :: "'a ta \<Rightarrow> 'a ta"
consts gc :: "'a ta \<Rightarrow> 'a ta"

friend_of_corec fc :: "'a ta \<Rightarrow> 'a ta" where
  "fc t = Ca (sa1 t) (sa2 t)"
  sorry

friend_of_corec gb :: "'a ta \<Rightarrow> 'a ta" where
  "gb t = Ca (sa1 t) (sa2 t)"
  sorry

friend_of_corec gc :: "'a ta \<Rightarrow> 'a ta" where
  "gc t = Ca (sa1 t) (sa2 t)"
  sorry

end