src/Provers/trancl.ML
changeset 59621 291934bac95e
parent 59582 0fbed69ff081
child 60785 c6f96559e032
     1.1 --- a/src/Provers/trancl.ML	Fri Mar 06 14:01:08 2015 +0100
     1.2 +++ b/src/Provers/trancl.ML	Fri Mar 06 15:58:56 2015 +0100
     1.3 @@ -94,7 +94,7 @@
     1.4    let
     1.5      fun inst thm =
     1.6        let val SOME (_, _, r', _) = decomp (Thm.concl_of thm)
     1.7 -      in Drule.cterm_instantiate [(Thm.cterm_of thy r', Thm.cterm_of thy r)] thm end;
     1.8 +      in Drule.cterm_instantiate [(Thm.global_cterm_of thy r', Thm.global_cterm_of thy r)] thm end;
     1.9      fun pr (Asm i) = nth asms i
    1.10        | pr (Thm (prfs, thm)) = map pr prfs MRS inst thm;
    1.11    in pr end;