fact: Definition NoConf := fun (A : Type) (x : &{ index : nat & vector A index}) => match x.2 with | Vector.nil => fun y : &{ index : nat & vector A index} => match y.2 with | Vector.nil => inj unit | Vector.cons _ _ => inj False end | @Vector.cons _ h n x0 => fun y : &{ index : nat & vector A index} => match y.2 with | Vector.nil => inj False | @Vector.cons _ h0 n0 x1 => telei (h) (n) in (x0) =={tele (x : A) (n : nat) in vector A n} telei (h0) (n0) in (x1) end end.
imports: Equations DepElimDec EqDecInstances Utf8