(**************************************************************************)
(* ********************************************************************** *)
+(* Progetto FreeScale *)
(* *)
-(* Sviluppato da: *)
-(* Cosimo Oliboni, oliboni@cs.unibo.it *)
+(* Sviluppato da: Ing. Cosimo Oliboni, oliboni@cs.unibo.it *)
+(* Sviluppo: 2008-2010 *)
(* *)
(* ********************************************************************** *)
#d; #l;
ngeneralize in match (refl_eq ? (S d));
ncases l in ⊢ (? ? % ? → %);
- ##[ ##1: #dsc; #H; nelim (nat_destruct_0_S … H)
+ ##[ ##1: #dsc; #H; ndestruct (*nelim (nat_destruct_0_S … H)*)
##| ##2: #n; #dsc; #sub; #H;
nnormalize;
napply I