equal
deleted
inserted
replaced
543 fun get_skolem_info info names = case map (lookup info) names |> List.find is_some of |
543 fun get_skolem_info info names = case map (lookup info) names |> List.find is_some of |
544 SOME x => x | |
544 SOME x => x | |
545 NONE => NONE |
545 NONE => NONE |
546 |
546 |
547 fun fix_name name = |
547 fun fix_name name = |
548 if String.isPrefix fact_prefix name andalso String.isSuffix "_J" name then |
548 if String.isPrefix fact_prefix name andalso String.isSuffix "_J" name then |
549 String.extract(name, size fact_prefix + 2,NONE) |> unascii_of |> |
549 String.extract(name, size fact_prefix + 2,NONE) |> unascii_of |> |
550 (fn x => fact_prefix ^ "0_" ^ x) |
550 (fn x => fact_prefix ^ "0_" ^ x) |
551 else |
551 else |
552 name |
552 name |
553 |
553 |