# HG changeset patch
# User bulwahn
# Date 1303278263 -7200
# Node ID 8a09dfeb2cec39c3704b2ad5ca61cff641da5b37
# Parent  9c81298fa4e140b2072f16fa5a556c21fb991201
making the evaluation of HOL.implies lazy even in strict languages by mapping it to an if statement

diff -r 9c81298fa4e1 -r 8a09dfeb2cec src/HOL/HOL.thy
--- a/src/HOL/HOL.thy	Tue Apr 19 14:52:22 2011 +0200
+++ b/src/HOL/HOL.thy	Wed Apr 20 07:44:23 2011 +0200
@@ -1915,18 +1915,22 @@
   (Haskell "Bool")
   (Scala "Boolean")
 
-code_const True and False and Not and HOL.conj and HOL.disj and If
+code_const True and False and Not and HOL.conj and HOL.disj and HOL.implies and If 
   (SML "true" and "false" and "not"
     and infixl 1 "andalso" and infixl 0 "orelse"
+    and "!(if (_)/ then (_)/ else true)"
     and "!(if (_)/ then (_)/ else (_))")
   (OCaml "true" and "false" and "not"
     and infixl 3 "&&" and infixl 2 "||"
+    and "!(if (_)/ then (_)/ else true)"
     and "!(if (_)/ then (_)/ else (_))")
   (Haskell "True" and "False" and "not"
     and infixr 3 "&&" and infixr 2 "||"
+    and "!(if (_)/ then (_)/ else True)"
     and "!(if (_)/ then (_)/ else (_))")
   (Scala "true" and "false" and "'! _"
     and infixl 3 "&&" and infixl 1 "||"
+    and "!(if ((_))/ (_)/ else true)"
     and "!(if ((_))/ (_)/ else (_))")
 
 code_reserved SML