equal
deleted
inserted
replaced
79 | Const (@{const_name HOL.less_eq}, _) $ y $ z => |
79 | Const (@{const_name HOL.less_eq}, _) $ y $ z => |
80 if term_of x aconv y then Le (Thm.dest_arg ct) |
80 if term_of x aconv y then Le (Thm.dest_arg ct) |
81 else if term_of x aconv z then Ge (Thm.dest_arg1 ct) else Nox |
81 else if term_of x aconv z then Ge (Thm.dest_arg1 ct) else Nox |
82 | Const (@{const_name Ring_and_Field.dvd},_)$_$(Const(@{const_name HOL.plus},_)$y$_) => |
82 | Const (@{const_name Ring_and_Field.dvd},_)$_$(Const(@{const_name HOL.plus},_)$y$_) => |
83 if term_of x aconv y then Dvd (Thm.dest_binop ct ||> Thm.dest_arg) else Nox |
83 if term_of x aconv y then Dvd (Thm.dest_binop ct ||> Thm.dest_arg) else Nox |
84 | Const (@{const_name Not},_) $ (Const (@{const_name Ring_and_Field.dvd},_)$_$(Const(@{const_name "HOL.plus"},_)$y$_)) => |
84 | Const (@{const_name Not},_) $ (Const (@{const_name Ring_and_Field.dvd},_)$_$(Const(@{const_name HOL.plus},_)$y$_)) => |
85 if term_of x aconv y then |
85 if term_of x aconv y then |
86 NDvd (Thm.dest_binop (Thm.dest_arg ct) ||> Thm.dest_arg) else Nox |
86 NDvd (Thm.dest_binop (Thm.dest_arg ct) ||> Thm.dest_arg) else Nox |
87 | _ => Nox) |
87 | _ => Nox) |
88 handle CTERM _ => Nox; |
88 handle CTERM _ => Nox; |
89 |
89 |