Restoring code

.gitignore

@@ -0,0 +1,58 @@
+# Ignore compiled Python files
+__pycache__/
+*.py[cod]
+*$py.class
+
+# Ignore virtual environment
+venv/
+.env/
+
+# Ignore IDE specific files
+.idea/
+.vscode/
+*.swp
+*.swo
+
+# Ignore compiled Why3 files
+.why3session
+*.why3session
+
+# Ignore compiled OCaml files
+*.cm[iox]
+*.o
+*.a
+*.so
+*.cmxa
+*.cmxs
+*.cmi
+*.cmo
+*.cma
+*.cmx
+*.opt
+
+# Ignore Docker related files
+*.tar
+*.zip
+
+# Ignore log files and other temporary files
+*.log
+*.tmp
+*.bak
+
+# Ignore PDFs if they are generated and not part of the source
+*.pdf
+
+# Ignore build artifacts
+build/
+dist/
+*.exe
+
+# Ignore system files
+.DS_Store
+Thumbs.db
+
+# Ignore Makefile generated files
+*~
+*.o
+*.a
+*.so

Case_studies/Makefile

@@ -0,0 +1,12 @@
+DIRS?= --library=../math_libs --library=../Qbricks --library=../Case_studies
+
+.PHONY: run ide
+
+ide_qft_test:
+	why3 ide $(DIRS) qft_test.mlw
+
+ide_shor:
+	why3 ide $(DIRS) shor.mlw
+
+prove_no_anc_shor_circ:
+	why3 prove $(DIRS) Shor/no_anc_shor_circ.mlw

Case_studies/Shor/shor_inst.mlw

@@ -0,0 +1,36 @@
+(**************************************************************************)
+(*  This file is part of QBRICKS.                                         *)
+(*                                                                        *)
+(*  Copyright (C) 2020-2022                                               *)
+(*    CEA (Commissariat à l'énergie atomique et aux énergies              *)
+(*         alternatives)                                                  *)
+(*    Université Paris-Saclay                                             *)
+(*                                                                        *)
+(*  you can redistribute it and/or modify it under the terms of the GNU   *)
+(*  Lesser General Public License as published by the Free Software       *)
+(*  Foundation, version 2.1.                                              *)
+(*                                                                        *)
+(*  It 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 Lesser General Public License for more details.                   *)
+(*                                                                        *)
+(*  See the GNU Lesser General Public License version 2.1                 *)
+(*  for more details (enclosed in the file licenses/LGPLv2.1).            *)
+(*                                                                        *)
+(**************************************************************************)
+
+
+module Inst
+         use shor_type.Shor_type
+         use ref.Ref
+
+         (* let constant shor_instance() = ref {composite=8; compos_log=4; picked=7} *)
+         (* let constant shor_instance() = ref {composite=6; compos_log=3; picked=5} *)
+         (* let constant shor_instance() = ref {composite=4; compos_log=3; picked=3} *)
+         let constant shor_instance() = ref {composite=3; compos_log=2; picked=2}
+         (* let constant shor_instance() = ref {composite=5; compos_log=3; picked=3} *)
+
+clone export no_anc_shor_circ.Circuit with val s = shor_instance
+
+end