src/Pure/fact_index.ML
changeset 13542 bb3e8a86d610
parent 13283 1051aa66cbf3
child 14981 e73f8140af78
     1.1 --- a/src/Pure/fact_index.ML	Tue Aug 27 17:24:41 2002 +0200
     1.2 +++ b/src/Pure/fact_index.ML	Tue Aug 27 17:25:44 2002 +0200
     1.3 @@ -29,7 +29,7 @@
     1.4    | add_frees _ (_, xs) = xs;
     1.5  
     1.6  fun index_term pred ((cs, xs), t) =
     1.7 -  (Term.add_term_consts (t, cs), add_frees pred (t, xs));
     1.8 +  (Term.add_term_consts (t, cs) \ Term.dummy_patternN, add_frees pred (t, xs));
     1.9  
    1.10  fun index_thm pred (idx, th) =
    1.11    let val {hyps, prop, ...} = Thm.rep_thm th