Mercurial Mercurial > hg > nominal2 / 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.
Accept non-equality eqvt rules in support proofs.
authorCezary Kaliszyk <kaliszyk@in.tum.de>
Mon, 19 Apr 2010 10:35:08 +0200
changeset 1877 7af807a85e22
parent 1876 b2efe803f1da
child 1878 c22947214948
Accept non-equality eqvt rules in support proofs.
Nominal/Rsp.thy file | annotate | diff | comparison | revisions 
--- a/Nominal/Rsp.thy	Mon Apr 19 10:00:52 2010 +0200
+++ b/Nominal/Rsp.thy	Mon Apr 19 10:35:08 2010 +0200
@@ -70,7 +70,7 @@
 *}
 
 ML {*
-fun sym_eqvts ctxt = map (fn x => sym OF [x]) (Nominal_ThmDecls.get_eqvts_thms ctxt)
+fun sym_eqvts ctxt = maps (fn x => [sym OF [x]] handle _ => []) (Nominal_ThmDecls.get_eqvts_thms ctxt)
 fun all_eqvts ctxt =
   Nominal_ThmDecls.get_eqvts_thms ctxt @ Nominal_ThmDecls.get_eqvts_raw_thms ctxt
 *}
nominal2