yiyunliu/pair-eta
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Generalize ProdSpace to BindSpace

Browse source
This commit is contained in:
Yiyun Liu 2024-12-30 13:12:52 -05:00
parent 2fe0d33592
commit d12de328b6
2 changed files with 17 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

1
theories/fp_red.v
View file

@ -1101,6 +1101,7 @@ Qed.
Lemma tm_depth_ind (P : forall n, Tm n -> Prop) :
(forall n (a : Tm n), (forall m (b : Tm m), depth_tm b < depth_tm a -> P m b) -> P n a) -> forall n a, P n a.
Proof.
move => ih.
suff : forall m n (a : Tm n), depth_tm a <= m -> P n a by sfirstorder.
elim.