header {* Higher-order hereditary Harrop formulas *}
theory HOHH
imports HOL
uses "prolog.ML"
begin
method_setup ptac =
{* Attrib.thms >> (fn thms => fn ctxt => SIMPLE_METHOD' (Prolog.ptac ctxt thms)) *}
"Basic Lambda Prolog interpreter"
method_setup prolog =
{* Attrib.thms >> (fn thms => fn ctxt => SIMPLE_METHOD (Prolog.prolog_tac ctxt thms)) *}
"Lambda Prolog interpreter"
consts
Dand :: "[bool, bool] => bool" (infixr ".." 28)
Dif :: "[bool, bool] => bool" (infixl ":-" 29)
Dimp :: "[bool, bool] => bool" (infixr "=>" 27)
translations
"D :- G" => "G --> D"
"D1 .. D2" => "D1 & D2"
"D => G" => "D --> G"
end