fact: Definition NoConfVec {E A n} (v v' : Vec E A n) : Prop := match v in Vec _ _ n return Vec E A n -> Prop with | nil => fun v' => match v' in Vec _ _ O return Prop with | nil => True end | @cons _ _ n' x xs => fun v' => match v' in Vec _ _ (S n'') return Vec E A n'' -> Prop with | @cons _ _ n'' x' xs' => fun xs => {| pr1 := x; pr2 := xs |} = {| pr1 := x'; pr2 := xs' |} end xs end v'.
imports: Equations(Equations DepElimDec HSets) Utf8