aboutsummaryrefslogtreecommitdiffstats
path: root/examples/Non_terminating.v
blob: 7dad08f280ad9b2829b282f1b4f17135839e50b8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
(**************************************************************************)
(*                                                                        *)
(*     SMTCoq                                                             *)
(*     Copyright (C) 2011 - 2019                                          *)
(*                                                                        *)
(*     See file "AUTHORS" for the list of authors                         *)
(*                                                                        *)
(*   This file is distributed under the terms of the CeCILL-C licence     *)
(*                                                                        *)
(**************************************************************************)


Require Import SMTCoq.

Parameter g : Z -> Z.

Axiom g_2_linear : forall x, Zeq_bool (g (x + 1)) ((g x) + 2).

Lemma apply_lemma_multiple :
  forall x y, Zeq_bool (g (x + y)) ((g x) + y * 2).

Proof.
  verit g_2_linear.