]> matita.cs.unibo.it Git - helm.git/commitdiff
we added a property
authorFerruccio Guidi <ferruccio.guidi@unibo.it>
Sat, 14 May 2011 18:59:20 +0000 (18:59 +0000)
committerFerruccio Guidi <ferruccio.guidi@unibo.it>
Sat, 14 May 2011 18:59:20 +0000 (18:59 +0000)
matita/matita/lib/lambda-delta/substitution/thin.ma

index dd3d0ffa94b38761a775a486e88ba8cbf5c4b53d..00e52947de0b7fef67eaddd4e8d7b6772fd3fbe5 100644 (file)
@@ -23,3 +23,13 @@ inductive thin: lenv → nat → nat → lenv → Prop ≝
 .
 
 interpretation "thinning" 'RSubst L1 d e L2 = (thin L1 d e L2).
+
+(* the main properties ******************************************************)
+
+axiom thin_conf_ge: ∀d1,e1,L,L1. ↓[d1,e1] L ≡ L1 →
+                    ∀e2,L2. ↓[0,e2] L ≡ L2 → d1 + e1 ≤ e2 → ↓[0,e2-e1] L1 ≡ L2.
+
+axiom thin_conf_lt: ∀d1,e1,L,L1. ↓[d1,e1] L ≡ L1 →
+                    ∀e2,K2,I,V2. ↓[0,e2] L ≡ K2. ♭I V2 →
+                    e2 < d1 → let d ≝ d1 - e2 - 1 in
+                    ∃K1,V1. ↓[0,e2] L1 ≡ K1. ♭I V1 ∧ ↓[d,e1] K2 ≡ K1 ∧ ↑[d,e1] V1 ≡ V2.