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.