changeset 1963 | 0c9ef14e9ba4 |
parent 1960 | 47e2e91705f3 |
child 1964 | 209ee65b2395 |
--- a/Nominal/NewParser.thy Tue Apr 27 22:21:16 2010 +0200 +++ b/Nominal/NewParser.thy Tue Apr 27 22:45:50 2010 +0200 @@ -277,7 +277,7 @@ val thy = Local_Theory.exit_global lthy2; val lthy3 = Theory_Target.init NONE thy; - val (_, lthy4) = define_fv dtinfo bn_funs_decls raw_bclauses lthy3; + val (_, lthy4) = define_raw_fv dtinfo bn_funs_decls raw_bclauses lthy3; in ((raw_dt_names, raw_bn_funs_loc, raw_bn_eqs_loc, raw_bclauses, raw_bns), lthy4) end