(* *)
(**************************************************************************)
+include "basic_2/notation/relations/stareq_5.ma".
+include "basic_2/syntax/cext2.ma".
include "basic_2/syntax/tdeq.ma".
-include "basic_2/syntax/lenv_ext2.ma".
(* EXTENDED DEGREE-BASED EQUIVALENCE ****************************************)
-definition cdeq: ∀h. sd h → relation3 lenv term term ≝
- λh,o,L. tdeq h o.
-
definition tdeq_ext: ∀h. sd h → relation bind ≝
λh,o. ext2 (tdeq h o).
+definition cdeq: ∀h. sd h → relation3 lenv term term ≝
+ λh,o,L. tdeq h o.
+
definition cdeq_ext: ∀h. sd h → relation3 lenv bind bind ≝
λh,o. cext2 (cdeq h o).
interpretation
- "degree-based equivalence (binder)"
- 'LazyEq h o I1 I2 = (tdeq_ext h o I1 I2).
+ "context-free degree-based equivalence (binder)"
+ 'StarEq h o I1 I2 = (tdeq_ext h o I1 I2).
+
+interpretation
+ "context-dependent degree-based equivalence (term)"
+ 'StarEq h o L T1 T2 = (cdeq h o L T1 T2).
+
+interpretation
+ "context-dependent degree-based equivalence (binder)"
+ 'StarEq h o L I1 I2 = (cdeq_ext h o L I1 I2).