src/HOL/ex/svc_test.thy
author paulson
Wed, 13 Oct 1999 12:07:23 +0200
changeset 7843 077d305615df
parent 7180 35676093459d
child 12873 d7f8dfaad46d
permissions -rw-r--r--
choose just as an infix

svc_test = Main +

syntax
    "<->"         :: [bool, bool] => bool                  (infixr 25)

translations
  "x <-> y" => "x = y"

end