author | wenzelm |
Sat, 27 Feb 2010 22:52:25 +0100 | |
changeset 35407 | 980d4194a212 |
parent 35406 | 1f1a1987428a |
child 35408 | b48ab741683b |
--- a/src/HOL/Tools/Nitpick/nitpick_kodkod.ML Sat Feb 27 22:52:06 2010 +0100 +++ b/src/HOL/Tools/Nitpick/nitpick_kodkod.ML Sat Feb 27 22:52:25 2010 +0100 @@ -55,7 +55,7 @@ type nfa_entry = typ * nfa_transition list type nfa_table = nfa_entry list -structure NfaGraph = Graph(type key = typ val ord = TermOrd.typ_ord) +structure NfaGraph = Typ_Graph (* int -> KK.int_expr list *) fun flip_nums n = index_seq 1 n @ [0] |> map KK.Num