(* Title: FOL/ex/Locale_Test/Locale_Test3.thy
Author: Clemens Ballarin
Test environment for the locale implementation.
*)
theory Locale_Test3
imports Locale_Test1
begin
interpretation le2: mixin_thy_merge gle gle'
rewrites "reflexive.less(gle', x, y) \<longleftrightarrow> gless'(x, y)"
proof -
show "mixin_thy_merge(gle, gle')" by unfold_locales
note reflexive = this[unfolded mixin_thy_merge_def, THEN conjunct2]
show "reflexive.less(gle', x, y) \<longleftrightarrow> gless'(x, y)"
by (simp add: reflexive.less_def[OF reflexive] gless'_def)
qed
end