author | oheimb |
Fri, 02 Jun 2000 12:44:04 +0200 | |
changeset 9015 | 8006e9009621 |
child 13208 | 965f95a3abd9 |
permissions | -rw-r--r-- |
(* higher-order hereditary Harrop formulas *) HOHH = HOL + consts (* D-formulas (programs): D ::= !x. D | D .. D | D :- G | A *) "Dand" :: [bool, bool] => bool (infixr ".." 28) ":-" :: [bool, bool] => bool (infixl 29) (* G-formulas (goals): G ::= A | G & G | G | G | ? x. G | True | !x. G | D => G *) (*"," :: [bool, bool] => bool (infixr 35)*) "=>" :: [bool, bool] => bool (infixr 27) translations "D :- G" => "G --> D" "D1 .. D2" => "D1 & D2" (*"G1 , G2" => "G1 & G2"*) "D => G" => "D --> G" end