Module SimpleArith3.
Admitted.
End SimpleArith3.
Inductive value : tm -> Prop :=
| v_const : forall n, value (C n).
Instance dec_value t : Dec (value t).
constructor; unfold decidable.
destruct t.
- left; constructor; auto.
- right=> contra. inversion contra.
Defined.
Derive ArbitrarySizedSuchThat for (fun t => value t).
Reserved Notation " t '===>' t' " (at level 40).
Inductive step : tm -> tm -> Prop :=
| ST_PlusConstConst : forall n1 n2,
P (C n1) (C n2)
===> C (n1 + n2)
| ST_Plus1 : forall t1 t1' t2,
t1 ===> t1' ->
P t1 t2 ===> P t1' t2
| ST_Plus2 : forall v1 t2 t2',
value v1 ->                     (* <----- n.b. *)
t2 ===> t2' ->
P v1 t2 ===> P v1 t2'
where " t '===>' t' " := (step t t').
Admitted. (* OUT-OF-SCOPE *)
(* xistential rework - dummy step *)
Definition step_fun (t : tm) : option tm := Some t.
Instance dec_step (t : tm) : Dec (exists t', step t t') :=
{| dec := _ |}.
Definition normal_form {X:Type} (R:relation X) (t:X) : Prop :=
~ exists t', R t t'.
Admitted. (* QuickChick value_is_nf. *) (* Existential *)
Admitted. (* OUT-OF-SCOPE *)
(* Temp1,2,3,4 identical *)
Inductive multi {X:Type} (R: relation X) : relation X :=
| multi_refl  : forall (x : X), multi R x x
| multi_step : forall (x y z : X),
R x y ->
multi R y z ->
multi R x z.
Notation " t '===>*' t' " := (multi step t t') (at level 40).
Admitted. (* OUT-OF-SCOPE *)

Theorem multi_trans :
forall (X:Type) (R: relation X) (x y z : X),
multi R x y  ->
multi R y z ->
multi R x z.