]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_2/grammar/lpx_sn.ma
- lambdadelta: first commutation property on lazy equivalence for
[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / grammar / lpx_sn.ma
index b229526dde25bf563fd6e4e12718c96bdee1fab0..eb8f210dc30f069db0a6c96dbebbe3c0f708aa09 100644 (file)
@@ -17,7 +17,7 @@ include "basic_2/grammar/lenv_append.ma".
 (* SN POINTWISE EXTENSION OF A CONTEXT-SENSITIVE REALTION FOR TERMS *********)
 
 inductive lpx_sn (R:lenv→relation term): relation lenv ≝
-| lpx_sn_stom: lpx_sn R (⋆) (⋆)
+| lpx_sn_atom: lpx_sn R (⋆) (⋆)
 | lpx_sn_pair: ∀I,K1,K2,V1,V2.
                lpx_sn R K1 K2 → R K1 V1 V2 →
                lpx_sn R (K1. ⓑ{I} V1) (K2. ⓑ{I} V2)