Definition iszero (n : nat) : bool :=
match n with
| O => true
| _ => false
end.
Functional Scheme iszero_ind := Induction for iszero Sort Prop.
intros x eg.
functional induction iszero x; simpl.
trivial.
inversion eg.
Qed.
Function ftest (n m : nat) : nat :=
match n with
| O => match m with
| O => 0
| _ => 1
end
| S p => 0
end.
(* MS: FIXME: apparently can't define R_ftest_complete. Rest of the file goes through. *)
intros n m.
functional induction ftest n m; auto.
Qed.

Lemma test3 : forall n m, ftest n m = 0 -> (n = 0 /\ m = 0)  \/ n <> 0.