equal
deleted
inserted
replaced
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 |