Mercurial Mercurial > hg > nominal2 / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Nominal/nominal_inductive.ML
changeset 2987 27aab7a105eb
parent 2768 639979b7fa6e
child 2994 4ee772b12032
equal deleted inserted replaced
2986:847972b7b5ba 2987:27aab7a105eb 
   389 
   389 
   390     val rule_names = 
   390     val rule_names = 
   391       hd names
 
   391       hd names
 
   392       |> the o Induct.lookup_inductP ctxt
 
   392       |> the o Induct.lookup_inductP ctxt
 
   393       |> fst o Rule_Cases.get
 
   393       |> fst o Rule_Cases.get
 
   394       |> map fst
 
   394       |> map (fst o fst)
 
   395 
   395 
   396     val _ = (case duplicates (op = o pairself fst) avoids of
 
   396     val _ = (case duplicates (op = o pairself fst) avoids of
 
   397         [] => ()
 
   397         [] => ()
 
   398       | xs => error ("Duplicate case names: " ^ commas_quote (map fst xs)))
 
   398       | xs => error ("Duplicate case names: " ^ commas_quote (map fst xs)))
 
   399 
   399
nominal2