src/Pure/Isar/auto_bind.ML
changeset 41489 8e2b8649507d
parent 35625 9c818cab0dd0
child 42288 2074b31650e6
equal deleted inserted replaced
41488:2110405ed53b 41489:8e2b8649507d
    42     _ $ t => SOME (Term.list_abs (Logic.strip_params prop, t))
    42     _ $ t => SOME (Term.list_abs (Logic.strip_params prop, t))
    43   | _ => NONE);
    43   | _ => NONE);
    44 
    44 
    45 fun facts _ [] = []
    45 fun facts _ [] = []
    46   | facts thy props =
    46   | facts thy props =
    47       let val prop = Library.last_elem props
    47       let val prop = List.last props
    48       in [(Syntax.dddot_indexname, get_arg thy prop)] @ statement_binds thy thisN prop end;
    48       in [(Syntax.dddot_indexname, get_arg thy prop)] @ statement_binds thy thisN prop end;
    49 
    49 
    50 val no_facts = [(Syntax.dddot_indexname, NONE), ((thisN, 0), NONE)];
    50 val no_facts = [(Syntax.dddot_indexname, NONE), ((thisN, 0), NONE)];
    51 
    51 
    52 end;
    52 end;