equal
deleted
inserted
replaced
73 |
73 |
74 local |
74 local |
75 |
75 |
76 fun pretty_fact_name (kind, "") = Pretty.str kind |
76 fun pretty_fact_name (kind, "") = Pretty.str kind |
77 | pretty_fact_name (kind, name) = Pretty.block [Pretty.str kind, Pretty.brk 1, |
77 | pretty_fact_name (kind, name) = Pretty.block [Pretty.str kind, Pretty.brk 1, |
78 Pretty.str (NameSpace.base_name name), Pretty.str ":"]; |
78 Pretty.str (Long_Name.base_name name), Pretty.str ":"]; |
79 |
79 |
80 fun pretty_facts ctxt = |
80 fun pretty_facts ctxt = |
81 flat o (separate [Pretty.fbrk, Pretty.str "and "]) o |
81 flat o (separate [Pretty.fbrk, Pretty.str "and "]) o |
82 map (single o ProofContext.pretty_fact ctxt); |
82 map (single o ProofContext.pretty_fact ctxt); |
83 |
83 |