Theory Locale_Test3

(*  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)  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)  gless'(x, y)
    by (simp add: reflexive.less_def[OF reflexive] gless'_def)
qed

end