equal
deleted
inserted
replaced
21 |
21 |
22 val thesisN = "thesis"; |
22 val thesisN = "thesis"; |
23 val thisN = "this"; |
23 val thisN = "this"; |
24 val assmsN = "assms"; |
24 val assmsN = "assms"; |
25 |
25 |
26 fun strip_judgment thy = ObjectLogic.drop_judgment thy o Logic.strip_assums_concl; |
26 fun strip_judgment thy = Object_Logic.drop_judgment thy o Logic.strip_assums_concl; |
27 |
27 |
28 fun statement_binds thy name prop = |
28 fun statement_binds thy name prop = |
29 [((name, 0), SOME (Term.list_abs (Logic.strip_params prop, strip_judgment thy prop)))]; |
29 [((name, 0), SOME (Term.list_abs (Logic.strip_params prop, strip_judgment thy prop)))]; |
30 |
30 |
31 |
31 |