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.
use sort at_base instead of at
authorChristian Urban <urbanc@in.tum.de>
Wed, 28 Apr 2010 07:27:28 +0200
changeset 1970 90758c187861
parent 1969 9ae5380c828a
child 1971 8daf6ff5e11a
use sort at_base instead of at
Nominal/NewFv.thy file | annotate | diff | comparison | revisions
Nominal/NewParser.thy file | annotate | diff | comparison | revisions 
--- a/Nominal/NewFv.thy	Wed Apr 28 07:20:57 2010 +0200
+++ b/Nominal/NewFv.thy	Wed Apr 28 07:27:28 2010 +0200
@@ -26,7 +26,7 @@
 
 ML {*
 fun is_atom thy ty =
-  Sign.of_sort thy (ty, @{sort at})
+  Sign.of_sort thy (ty, @{sort at_base})
 
 fun is_atom_set thy (Type ("fun", [t, @{typ bool}])) = is_atom thy t
   | is_atom_set _ _ = false;
--- a/Nominal/NewParser.thy	Wed Apr 28 07:20:57 2010 +0200
+++ b/Nominal/NewParser.thy	Wed Apr 28 07:27:28 2010 +0200
@@ -498,6 +498,7 @@
 
 
 typ exp_raw 
+typ pat_raw 
 thm exp_raw_fnclause_raw_fnclauses_raw_lrb_raw_lrbs_raw_pat_raw.induct[no_vars]
 thm b_fnclause_raw_b_fnclauses_raw_b_lrb_raw_b_lrbs_raw_b_pat_raw.simps[no_vars]
 thm permute_exp_raw_permute_fnclause_raw_permute_fnclauses_raw_permute_lrb_raw_permute_lrbs_raw_permute_pat_raw.simps[no_vars]
nominal2