Use hne and hf instead HRed.nf
This commit is contained in:
parent
30caf75002
commit
d1771adc48
4 changed files with 655 additions and 482 deletions
|
@ -226,7 +226,7 @@ Ltac check_sub_triv :=
|
|||
intros;subst;
|
||||
lazymatch goal with
|
||||
(* | [h : algo_dom (VarPTm _) (PAbs _) |- _] => idtac *)
|
||||
| [h : salgo_dom _ _ |- _] => try (inversion h; subst => //=; ltac2:(Control.enter destruct_algo))
|
||||
| [_ : salgo_dom _ _ |- _] => try (inversion h; subst => //=; ltac2:(Control.enter destruct_algo))
|
||||
| _ => idtac
|
||||
end.
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue