changeset 63046 | 8053ef5a0174 |
parent 62905 | 52c5a25e0c96 |
child 67091 | 1393c2340eec |
--- a/src/HOL/BNF_Fixpoint_Base.thy Thu Apr 14 20:29:42 2016 +0200 +++ b/src/HOL/BNF_Fixpoint_Base.thy Fri Apr 15 21:33:47 2016 +0200 @@ -284,6 +284,9 @@ "rel_fun (rel_fun R S) (rel_fun (rel_fun R T) (rel_fun R (rel_prod S T))) BNF_Def.convol BNF_Def.convol" unfolding rel_fun_def convol_def by auto +lemma Let_const: "Let x (\<lambda>_. c) = c" + unfolding Let_def .. + ML_file "Tools/BNF/bnf_fp_util_tactics.ML" ML_file "Tools/BNF/bnf_fp_util.ML" ML_file "Tools/BNF/bnf_fp_def_sugar_tactics.ML"