Skip to content

Commit 13b4335

Browse files
committed
Remove quick_and_dirty from operations
1 parent ca41e2e commit 13b4335

File tree

3 files changed

+2
-11
lines changed

3 files changed

+2
-11
lines changed

operations/Composition.thy

Lines changed: 0 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -34,7 +34,6 @@ val name2 = "T2";
3434
val rel = [[1,3], [1]];
3535
\<close>
3636

37-
declare [[quick_and_dirty]]
3837
declare [[ML_print_depth=1000]]
3938
declare [[mrbnf_internals]]
4039
local_setup \<open>fn lthy =>
@@ -85,6 +84,4 @@ in lthy end
8584
print_theorems
8685
print_mrbnfs
8786

88-
declare [[quick_and_dirty=false]]
89-
9087
end

operations/Greatest_Fixpoint.thy

Lines changed: 1 addition & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -25,7 +25,6 @@ ML \<open>
2525
val rel = [[([], [0]), ([], [0, 1])]];
2626
\<close>
2727

28-
declare [[quick_and_dirty]]
2928
declare [[ML_print_depth=1000]]
3029
declare [[mrbnf_internals]]
3130
local_setup \<open>fn lthy =>
@@ -62,8 +61,6 @@ set3_term_pre := recursive occurences that bind variables
6261
set4_term_pre := recursive non-binding occurences
6362
*)
6463

65-
declare [[quick_and_dirty=false]]
66-
6764
lemmas infinite_UNIV = cinfinite_imp_infinite[OF term_pre.UNIV_cinfinite]
6865

6966
(********************** BINDER FIXPOINT CONSTRUCTION **************************************)
@@ -1809,4 +1806,4 @@ let
18091806
in lthy end
18101807
\<close>
18111808

1812-
end
1809+
end

operations/Least_Fixpoint2.thy

Lines changed: 1 addition & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -25,7 +25,6 @@ val name1 = "term";
2525
val rel = [[([], [0]), ([], [0, 1])]];
2626
\<close>
2727

28-
declare [[quick_and_dirty]]
2928
declare [[ML_print_depth=1000]]
3029
declare [[mrbnf_internals]]
3130
local_setup \<open>fn lthy =>
@@ -56,8 +55,6 @@ in lthy end
5655
print_theorems
5756
print_mrbnfs
5857

59-
declare [[quick_and_dirty=false]]
60-
6158
lemmas infinite_UNIV = cinfinite_imp_infinite[OF term_pre.UNIV_cinfinite]
6259

6360
(********************** BINDER FIXPOINT CONSTRUCTION **************************************)
@@ -2268,4 +2265,4 @@ lemma nnoclash_noclashs:
22682265
apply (rule refl)
22692266
done
22702267

2271-
end
2268+
end

0 commit comments

Comments
 (0)