Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
smoothly handle unit codatatypes in 'primcorec'
authorblanchet
Mon, 24 Nov 2014 12:35:13 +0100
changeset 59042 ef0074e812cd
parent 59041 2a23235632b2
child 59043 a00110bdb4a3
smoothly handle unit codatatypes in 'primcorec'
src/HOL/Tools/BNF/bnf_gfp_rec_sugar.ML file | annotate | diff | comparison | revisions 
--- a/src/HOL/Tools/BNF/bnf_gfp_rec_sugar.ML	Mon Nov 24 12:35:13 2014 +0100
+++ b/src/HOL/Tools/BNF/bnf_gfp_rec_sugar.ML	Mon Nov 24 12:35:13 2014 +0100
@@ -696,7 +696,7 @@
 
     val disc_concl = betapply (disc, lhs);
     val (eqn_data_disc_opt, matchedsss') =
-      if null (tl basic_ctr_specs) then
+      if null (tl basic_ctr_specs) andalso not (null sels) then
         (NONE, matchedsss)
       else
         apfst SOME (dissect_coeqn_disc lthy fun_names sequentials basic_ctr_specss eqn_pos
isabelle