diff -r 2c38796b33b9 -r ee4dfce170a0 src/HOLCF/Tr2.thy --- a/src/HOLCF/Tr2.thy Sat Feb 15 18:24:05 1997 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,33 +0,0 @@ -(* Title: HOLCF/tr2.thy - ID: $Id$ - Author: Franz Regensburger - Copyright 1993 Technische Universitaet Muenchen - -Introduce infix if_then_else_fi and boolean connectives andalso, orelse -*) - -Tr2 = Tr1 + - -consts - Icifte :: "tr -> 'c -> 'c -> 'c" - trand :: "tr -> tr -> tr" - tror :: "tr -> tr -> tr" - neg :: "tr -> tr" - -syntax "@cifte" :: "tr=>'c=>'c=>'c" - ("(3If _/ (then _/ else _) fi)" 60) - "@andalso" :: "tr => tr => tr" ("_ andalso _" [36,35] 35) - "@orelse" :: "tr => tr => tr" ("_ orelse _" [31,30] 30) - -translations "x andalso y" == "trand`x`y" - "x orelse y" == "tror`x`y" - "If b then e1 else e2 fi" == "Icifte`b`e1`e2" - -defs - - ifte_def "Icifte == (LAM t e1 e2.tr_when`e1`e2`t)" - andalso_def "trand == (LAM t1 t2.tr_when`t2`FF`t1)" - orelse_def "tror == (LAM t1 t2.tr_when`TT`t2`t1)" - neg_def "neg == (LAM t. tr_when`FF`TT`t)" - -end