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.
add_arities_i;
authorwenzelm
Mon, 06 Oct 1997 19:13:55 +0200
changeset 3793 6e807b50b6c1
parent 3792 1ecbaca6560a
child 3794 d543bb9ab896
add_arities_i;
src/HOL/typedef.ML file | annotate | diff | comparison | revisions
src/HOLCF/domain/syntax.ML file | annotate | diff | comparison | revisions 
--- a/src/HOL/typedef.ML	Mon Oct 06 19:13:29 1997 +0200
+++ b/src/HOL/typedef.ML	Mon Oct 06 19:13:55 1997 +0200
@@ -108,7 +108,7 @@
 
     thy
     |> Theory.add_types [(t, tlen, mx)]
-    |> Theory.add_arities
+    |> Theory.add_arities_i
      [(tname, replicate tlen logicS, logicS),
       (tname, replicate tlen termS, termS)]
     |> Theory.add_consts_i
--- a/src/HOLCF/domain/syntax.ML	Mon Oct 06 19:13:29 1997 +0200
+++ b/src/HOLCF/domain/syntax.ML	Mon Oct 06 19:13:55 1997 +0200
@@ -116,7 +116,7 @@
   val ctt           = map (calc_syntax funprod) eqs';
   val add_cur_ops_i = ThyOps.add_ops_i {curried=true, strict=false, total=false};
 in thy'' |> Theory.add_types      thy_types
-	 |> Theory.add_arities    thy_arities
+	 |> Theory.add_arities_i  thy_arities
 	 |> add_cur_ops_i (flat(map fst ctt))
 	 |> add_cur_ops_i ((if length eqs'>1 then [const_copy] else[])@[const_bisim])
 	 |> Theory.add_trrules_i (flat(map snd ctt))
isabelle