Definition table_tree_agree
    (default: nat) (cases: table) (t: comptree) : Prop :=
  forall v, 0 <= v < modulus -> comptree_match v t = Some(switch_target v default cases).

(* Specifications: *)
Theorem validate_switch_correct: forall default t cases, validate_switch default cases t = true -> wf_comptree t /\ table_tree_agree default cases t.
Theorem validate_switch_correct: forall default t cases, validate_switch default cases t = true -> wf_comptree t /\ table_tree_agree default cases t.