proposition: Lemma vec_inv1 {X} (v : Vector.t X 1) : v = [Vector.hd v].
proof: Proof. apply (Vector.caseS' v). intros ?. now apply Vector.case0. Qed.
imports: Undecidability.FOL(Semantics.FiniteTarski.Full) Undecidability.FOL(Syntax.Facts Semantics.Tarski.FullFacts Syntax.BinSig) Undecidability.SeparationLogic(MSL) Undecidability.Shared(Dec) Undecidability.Synthetic.DecidabilityFacts List Undecidability.Synthetic.Definitions