aboutsummaryrefslogtreecommitdiffstats
path: root/src/Common
diff options
context:
space:
mode:
authorYann Herklotz <git@yannherklotz.com>2020-02-17 18:47:26 +0000
committerYann Herklotz <git@yannherklotz.com>2020-02-17 18:47:26 +0000
commit75af84521208aac70375d7df45105256475d75b6 (patch)
treefc87f63175ba97789d837b3d286c019212780851 /src/Common
parentabf33a4075c2008bfcac3b04ad3b4dc1c57a4efd (diff)
downloadvericert-kvx-75af84521208aac70375d7df45105256475d75b6.tar.gz
vericert-kvx-75af84521208aac70375d7df45105256475d75b6.zip
Update license to be compatible with CompCert
Diffstat (limited to 'src/Common')
-rw-r--r--src/Common/Helper.v18
-rw-r--r--src/Common/Show.v18
-rw-r--r--src/Common/Tactics.v39
3 files changed, 62 insertions, 13 deletions
diff --git a/src/Common/Helper.v b/src/Common/Helper.v
index 292d011..d23dbe4 100644
--- a/src/Common/Helper.v
+++ b/src/Common/Helper.v
@@ -1,3 +1,21 @@
+(*
+ * CoqUp: Verified high-level synthesis.
+ * Copyright (C) 2019-2020 Yann Herklotz <yann@yannherklotz.com>
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program. If not, see <https://www.gnu.org/licenses/>.
+ *)
+
Module Option.
Definition default {T : Type} (x : T) (u : option T) : T :=
diff --git a/src/Common/Show.v b/src/Common/Show.v
index 83ec5bc..8f9ec36 100644
--- a/src/Common/Show.v
+++ b/src/Common/Show.v
@@ -1,3 +1,21 @@
+(*
+ * CoqUp: Verified high-level synthesis.
+ * Copyright (C) 2019-2020 Yann Herklotz <yann@yannherklotz.com>
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program. If not, see <https://www.gnu.org/licenses/>.
+ *)
+
From Coq Require Import
Strings.String
Bool.Bool
diff --git a/src/Common/Tactics.v b/src/Common/Tactics.v
index 5978d49..967c642 100644
--- a/src/Common/Tactics.v
+++ b/src/Common/Tactics.v
@@ -1,16 +1,29 @@
-Module Tactics.
+(*
+ * CoqUp: Verified high-level synthesis.
+ * Copyright (C) 2019-2020 Yann Herklotz <yann@yannherklotz.com>
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program. If not, see <https://www.gnu.org/licenses/>.
+ *)
- Ltac unfold_rec c := unfold c; fold c.
+Ltac unfold_rec c := unfold c; fold c.
- Ltac solve_by_inverts n :=
- match goal with | H : ?T |- _ =>
- match type of T with Prop =>
- inversion H;
- match n with S (S (?n')) => subst; try constructor; solve_by_inverts (S n') end
- end
- end.
+Ltac solve_by_inverts n :=
+ match goal with | H : ?T |- _ =>
+ match type of T with Prop =>
+ inversion H;
+ match n with S (S (?n')) => subst; try constructor; solve_by_inverts (S n') end
+ end
+ end.
- Ltac solve_by_invert := solve_by_inverts 1.
-
-End Tactics.
-Export Tactics.
+Ltac solve_by_invert := solve_by_inverts 1.