src/HOL/Tools/Qelim/cooper.ML
changeset 32603 e08fdd615333
parent 32429 54758ca53fd6
child 33002 f3f02f36a3e2
equal deleted inserted replaced
32602:f2b741473860 32603:e08fdd615333
    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