author | wenzelm |
Tue, 24 Jan 2006 00:43:32 +0100 | |
changeset 18769 | e90eb0bc0ddd |
parent 18768 | 6e97b57cdcba |
child 18770 | 434f660d3068 |
--- a/src/Pure/Isar/obtain.ML Tue Jan 24 00:43:31 2006 +0100 +++ b/src/Pure/Isar/obtain.ML Tue Jan 24 00:43:32 2006 +0100 @@ -199,7 +199,7 @@ in (xs' @ ys', rule') end; fun inferred_type (x, _, mx) ctxt = - let val ((_, T), ctxt') = ProofContext.inferred_type x ctxt + let val ((_, T), ctxt') = ProofContext.inferred_param x ctxt in ((x, SOME T, mx), ctxt') end; fun gen_guess prep_vars raw_vars int state =