equal
deleted
inserted
replaced
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; |