]> matita.cs.unibo.it Git - helm.git/commitdiff
Works again
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Wed, 28 Oct 2009 16:52:01 +0000 (16:52 +0000)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Wed, 28 Oct 2009 16:52:01 +0000 (16:52 +0000)
helm/software/matita/contribs/ng_assembly/compiler/environment.ma

index 4467f332ccd99e48c1c92a93eb1f8dc432824cd6..97183a6615f98b906f18e34eba576bbc1feac4e6 100755 (executable)
@@ -46,8 +46,6 @@ ndefinition defined_envList ≝
 nlemma defined_envList_S : ∀d.∀l:env_list (S d).defined_envList (S d) l.
  #d; #l;
  ngeneralize in match (refl_eq ? (S d));
- XXX nuova instantiate!
- (* S d = S d → ? e' in realta' eq nat (S d) (S d) ... *)
  ncases l in ⊢ (? ? % ? → %);
  ##[ ##1: #dsc; #H; nelim (nat_destruct_0_S … H)
  ##| ##2: #n; #dsc; #sub; #H;