src/Pure/Isar/auto_bind.ML
changeset 35625 9c818cab0dd0
parent 33386 ff29d1549aca
child 41489 8e2b8649507d
equal deleted inserted replaced
35624:c4e29a0bb8c1 35625:9c818cab0dd0
    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