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 => True | Vector.cons _ _ => False end | @Vector.cons _ h n x0 => fun y : &{ index : nat & vector A index} => match y.2 with | Vector.nil => False | @Vector.cons _ h0 n0 x1 => telei (h) (n) in (x0) = telei (h0) (n0) in (x1) :> tele (_ : A) (n : nat) in vector A n end end.
imports: Equations DepElimDec EqDecInstances