src/HOL/Decision_Procs/Reflective_Field.thy
changeset 67710 cc2db3239932
parent 67649 1e1782c1aedf
child 69597 ff784d5a5bfb
equal deleted inserted replaced
67709:3c9e0b4709e7 67710:cc2db3239932
   902           (binop_conv
   902           (binop_conv
   903              (binop_conv
   903              (binop_conv
   904                 (K (feval_conv rls cxs ce)) (K (feval_conv rls cxs ce')))
   904                 (K (feval_conv rls cxs ce)) (K (feval_conv rls cxs ce')))
   905              (Conv.arg1_conv (K (peval_conv rls cxs n))))))
   905              (Conv.arg1_conv (K (peval_conv rls cxs n))))))
   906         ([mkic xs,
   906         ([mkic xs,
   907           mk_obj_eq fnorm,
   907           HOLogic.mk_obj_eq fnorm,
   908           mk_obj_eq (nonzero_conv rls cxs c) RS @{thm iffD2}] MRS
   908           HOLogic.mk_obj_eq (nonzero_conv rls cxs c) RS @{thm iffD2}] MRS
   909          feval_eq);
   909          feval_eq);
   910       val th' = Drule.rotate_prems 1
   910       val th' = Drule.rotate_prems 1
   911         (th RS (if in_prem then @{thm iffD1} else @{thm iffD2}));
   911         (th RS (if in_prem then @{thm iffD1} else @{thm iffD2}));
   912     in
   912     in
   913       if in_prem then
   913       if in_prem then