diff options
author | Yann Herklotz <git@yannherklotz.com> | 2020-02-17 18:47:26 +0000 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2020-02-17 18:47:26 +0000 |
commit | 75af84521208aac70375d7df45105256475d75b6 (patch) | |
tree | fc87f63175ba97789d837b3d286c019212780851 /src/Common | |
parent | abf33a4075c2008bfcac3b04ad3b4dc1c57a4efd (diff) | |
download | vericert-75af84521208aac70375d7df45105256475d75b6.tar.gz vericert-75af84521208aac70375d7df45105256475d75b6.zip |
Update license to be compatible with CompCert
Diffstat (limited to 'src/Common')
-rw-r--r-- | src/Common/Helper.v | 18 | ||||
-rw-r--r-- | src/Common/Show.v | 18 | ||||
-rw-r--r-- | src/Common/Tactics.v | 39 |
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. |